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

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index d598354d6ed4ef241c29ab7e361f0eb7f806f575..c3a169b50b9b3e3d513455a88854a43d37cdf573 100644 (file)
--- 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 (file)
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 (file)
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
-
-