gcc/testsuite/gfortran.dg/error_format.f90

   1 ! { dg-do run }
   2 ! { dg-shouldfail "Runtime error format check" }
   3 ! PR32456 IO error message should show Unit/Filename
   4 program test
   5   implicit none
   6   integer :: i
   7   open(99, status="scratch")
   8   read(99,*) i
   9 end program
  10 ! { dg-output ".*(unit = 99, file = .*)" }
  11 ! { dg-output "Fortran runtime error: End of file" }