gcc/testsuite/gfortran.dg/internal_write_1.f90

   1 ! { dg-do run }
   2 ! { dg-shouldfail "End of file" }
   3 program main
   4   character(len=20) :: line
   5   integer, dimension(4) :: n
   6   n = 1
   7   write(line,'(2I2)') n
   8 end program main
   9 ! { dg-output "Fortran runtime error: End of file" }