source:
vendors/XMLF90/current/doc/Examples/sax/features/i.xmlcheck.f90
@
1963
Last change on this file since 1963 was 1963, checked in by flavoni, 14 years ago | |
---|---|
File size: 348 bytes |
Line | |
---|---|
1 | program xmlcheck |
2 | ! |
3 | ! Checks for well-formedness of an XML file |
4 | ! |
5 | use flib_sax |
6 | |
7 | integer :: iostat |
8 | type(xml_t) :: fxml |
9 | |
10 | call open_xmlfile("INP",fxml,iostat) |
11 | if (iostat /= 0) stop "Cannot open file INP." |
12 | |
13 | call xml_parse(fxml, verbose = .false.) |
14 | |
15 | print *, "Characters processed: ", xml_char_count(fxml) |
16 | |
17 | end program xmlcheck |
18 | |
19 | |
20 | |
21 | |
22 | |
23 | |
24 | |
25 | |
26 | |
27 | |
28 | |
29 | |
30 | |
31 |
Note: See TracBrowser
for help on using the repository browser.