source: XIOS/dev/dev_olga/src/test/parse_xml.f90 @ 1627

Last change on this file since 1627 was 1627, checked in by oabramkina, 9 months ago

Test parse_xml.f90: adding a message in case of successful parsing.

File size: 320 bytes
Line 
1PROGRAM parse_xml
2  USE, INTRINSIC :: ISO_C_BINDING
3  IMPLICIT NONE
4
5  INTERFACE
6    SUBROUTINE xios_init() BIND(C, name='cxios_init')
7    END SUBROUTINE
8  END INTERFACE
9
10  CALL xios_init() ! This will parse the XML file and report any parsing error
11  WRITE (*,*) 'Parsing finished successfully.'
12
13END PROGRAM parse_xml
Note: See TracBrowser for help on using the repository browser.