program test

  use FoX_wxml
  implicit none

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

  call xml_OpenFile(filename, xf, addDecl=.false.)
  call xml_AddXMLDeclaration(xf, encoding='UTF-8')
  call xml_NewElement(xf, "a")
  call xml_Close(xf)

end program test
