OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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

Browse Source 
2006-07-25  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libgfortran/28335
	* gfortran.dg/no_unit_error_1.f90: New test.
	* gfortran.dg/no_unit_error_2.f90: New test.
	* gfortran.dg/temporary_1.f90: Remove extraneous CLOSE.

From-SVN: r115750
This commit is contained in:
Jerry DeLisle 2006-07-26 01:47:13 +00:00
parent ca8d5bc6c6
commit 5226f481de
4 changed files with 21 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,10 @@
2006-07-25 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/28335
* gfortran.dg/no_unit_error_1.f90: New test.
* gfortran.dg/no_unit_error_2.f90: New test.
* gfortran.dg/temporary_1.f90: Remove extraneous CLOSE.
2006-07-25 Roger Sayle <roger@eyesopen.com>
PR middle-end/28473

7
gcc/testsuite/gfortran.dg/no_unit_error_1.f90 Normal file
View File

@ -0,0 +1,7 @@
! { dg-do run }
! { dg-shouldfail "UNIT is not open before CLOSE" }
! PR28335 Check for error on no unit.
close(88) ! { dg-output "Can't find specified UNIT in CLOSE" }
end

7
gcc/testsuite/gfortran.dg/no_unit_error_2.f90 Normal file
View File

@ -0,0 +1,7 @@
! { dg-do run }
! { dg-shouldfail "UNIT is not open before FLUSH" }
! PR28335 Check for error on no unit.
flush(88) ! { dg-output "Can't find specified UNIT in FLUSH" }
end

1
gcc/testsuite/gfortran.dg/temporary_1.f90
View File

@ -15,7 +15,6 @@ program pr27662
if (x (i, j) .ne. z (i, j)) call abort ()
end do
end do
close (10)
contains
function test () result (res)