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

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

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

File size: 320 bytes
RevLine 
[576]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
[1627]11  WRITE (*,*) 'Parsing finished successfully.'
[576]12
13END PROGRAM parse_xml
Note: See TracBrowser for help on using the repository browser.