| ! { 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" } |