! { dg-do run } | |
! { dg-shouldfail "Runtime error format check" } | |
! PR32456 IO error message should show Unit/Filename | |
program test | |
implicit none | |
integer :: i | |
open(99, status="scratch") | |
read(99,*) i | |
end program | |
! { dg-output ".*(unit = 99, file = .*)" } | |
! { dg-output "Fortran runtime error: End of file" } |