test_XML.f90 266 Bytes
Newer Older
1 2 3 4 5 6 7 8 9 10 11
      program test
      integer:: i
      interface
         function xml()bind(C,name="xmlInitParser")
              use iso_c_binding
              INTEGER(c_int) xmlInitParser
         end function xml
      end interface
  
      i=xml()
      end program test