diff options
author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2006-07-31 00:09:16 +0000 |
---|---|---|
committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2006-07-31 00:09:16 +0000 |
commit | 8b956d3d381610258beb367331e476698459fecf (patch) | |
tree | 5180d1d41ea8b54496a92e50adbce9ee18b3b277 | |
parent | 1ccbef7746372f4d0e90c026718fb3f1f686196a (diff) | |
download | gcc-8b956d3d381610258beb367331e476698459fecf.zip gcc-8b956d3d381610258beb367331e476698459fecf.tar.gz gcc-8b956d3d381610258beb367331e476698459fecf.tar.bz2 |
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: Delete test.
* gfortran.dg/no_unit_error_2.f90: Delete test.
From-SVN: r115828
-rw-r--r-- | gcc/testsuite/ChangeLog | 6 | ||||
-rw-r--r-- | gcc/testsuite/gfortran.dg/no_unit_error_1.f90 | 7 | ||||
-rw-r--r-- | gcc/testsuite/gfortran.dg/no_unit_error_2.f90 | 7 |
3 files changed, 6 insertions, 14 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index d598354d..c3a169b 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,9 @@ +2006-07-30 Jerry DeLisle <jvdelisle@gcc.gnu.org> + + PR libgfortran/28335 + * gfortran.dg/no_unit_error_1.f90: Delete test. + * gfortran.dg/no_unit_error_2.f90: Delete test. + 2006-07-30 Francois-Xavier Coudert <coudert@clipper.ens.fr> * gcc/testsuite/gfortran.dg/chmod_3.f90: New test. diff --git a/gcc/testsuite/gfortran.dg/no_unit_error_1.f90 b/gcc/testsuite/gfortran.dg/no_unit_error_1.f90 deleted file mode 100644 index fea2875..0000000 --- a/gcc/testsuite/gfortran.dg/no_unit_error_1.f90 +++ /dev/null @@ -1,7 +0,0 @@ -! { 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 - - diff --git a/gcc/testsuite/gfortran.dg/no_unit_error_2.f90 b/gcc/testsuite/gfortran.dg/no_unit_error_2.f90 deleted file mode 100644 index 595191f..0000000 --- a/gcc/testsuite/gfortran.dg/no_unit_error_2.f90 +++ /dev/null @@ -1,7 +0,0 @@ -! { 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 - - |