! Program to test simple IO
program testwrite
   write (*) 1
   write (*) "Hello World"
end program