program test

  use FoX_wxml, only : xmlf_t, xml_OpenFile, xml_Close
  use FoX_wxml, only : xml_NewElement, xml_AddDOCTYPE, xml_AddExternalEntity
  use FoX_wxml, only : xml_AddNotation
  implicit none

  character(len=*), parameter :: filename = 'test.xml'
  type(xmlf_t) :: xf

  call xml_OpenFile(filename, xf)
  call xml_AddDOCTYPE(xf, 'html')
  call xml_AddNotation(xf, 'GIF', 'http://www.uszla.me.uk/notations/GIF')
  call xml_AddExternalEntity(xf, 'ENT', 'http://www.uszla.me.uk/entities', &
                             "//PUBLICID/", 'GIF')
  call xml_NewElement(xf, 'html')
  call xml_Close(xf)

end program test