program short_test

  use FoX_common, only : str

  write(*,'(3a)') '!',str(&
TESTINPUT&
),'!'

end program short_test