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