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:
parent
e43c3311bd
commit
332e4118b9
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
Loading…
Reference in New Issue