!
!$Author: joelevin $
!$Date: 2011-03-24 11:33:26 -0500 (Thu, 24 Mar 2011) $
!$Revision: 11724 $
!$HeadURL: https://svn.weru.ksu.edu/weru/weps1/trunk/weps.src/src/util/lib_sax/tstsax_xmlcheck/xmlcheck.f95 $
!
program tstsax_xmlcheck
!
! Checks for well-formedness of an XML file
!
use flib_sax

  integer :: iostat
  type(xml_t)  :: fxml

  call open_xmlfile("test.xml",fxml,iostat)
  if (iostat /= 0) stop "Cannot open file INP."

  call xml_parse(fxml, verbose = .false.)

  print *, "Characters processed: ", xml_char_count(fxml)

end program tstsax_xmlcheck