source: XIOS/branchs/xios-1.0/src/test/parse_xml.f90 @ 573

Last change on this file since 573 was 573, checked in by rlacroix, 7 years ago

Convert parse_xml.cpp to Fortran to ease compiling with PGI compilers.

Previously linking would fail because a special compiler switch is required when linking a CPP code with a Fortran library using PGI. To avoid having to handle that special case, switch to Fortran.

File size: 282 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
12END PROGRAM parse_xml
13
14
15 
16
17 
Note: See TracBrowser for help on using the repository browser.