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