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