re PR fortran/28335 (flush() / write() statement on closed units - error?)

2006-07-30  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libgfortran/28335
	* gfortran.dg/no_unit_error_1.f90: New test.

From-SVN: r115836
This commit is contained in:
Jerry DeLisle 2006-07-31 01:36:44 +00:00
parent e43c3311bd
commit 332e4118b9
2 changed files with 12 additions and 0 deletions

View File

@ -1,3 +1,8 @@
2006-07-30 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/28335
* gfortran.dg/no_unit_error_1.f90: New test.
2006-07-30 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/28335

View File

@ -0,0 +1,7 @@
! { dg-do run }
! { dg-shouldfail "UNIT does not exist for FLUSH" }
! PR28335 Check for error on no unit.
close(88)
flush(88) ! { dg-output "Specified UNIT in FLUSH is not connected" }
end