12 lines
314 B
Fortran
12 lines
314 B
Fortran
! { 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" }
|