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

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

gcc/testsuite/ChangeLog

+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

gcc/testsuite/gfortran.dg/no_unit_error_1.f90

+! { 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
+
+

gcc/testsuite/gfortran.dg/no_unit_error_2.f90

+! { 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
+
+

gcc/testsuite/gfortran.dg/temporary_1.f90

@@ -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)