test_xml_AddPseudoAttribute_overload_15.f90

program test

  use FoX_wxml
  implicit none

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

  call xml_OpenFile(filename, xf)
  call xml_AddXMLPI(xf, "root")
  call xml_AddPseudoAttribute(xf, "att", (reshape(    &
     (/(10.0, -1.2),(10.0,-1.2),  &
       (10.0, -1.2),(10.0,-1.2)/),&
     (/2,2/))))
  call xml_NewElement(xf, "a")
  call xml_Close(xf)

end program test