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