re PR libfortran/32456 (IO error message should show Unit/Filename)

2007-06-24  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR fortran/32456
	* gfortran.dg/error_format.f90: New test.

From-SVN: r125990
This commit is contained in:
Jerry DeLisle 2007-06-24 23:03:29 +00:00
parent 87557722c8
commit 7bcb8bf5f1
2 changed files with 16 additions and 0 deletions

View File

@ -1,3 +1,8 @@
2007-06-24 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/32456
* gfortran.dg/error_format.f90: New test.
2007-06-24 Paul Thomas <pault@gcc.gnu.org>
PR fortran/32136

View File

@ -0,0 +1,11 @@
! { 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" }