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

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

diff --git a/gcc/testsuite/gfortran.dg/no_unit_error_1.f90 b/gcc/testsuite/gfortran.dg/no_unit_error_1.f90
new file mode 100644 (file)
index 0000000..1d69bcc
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/no_unit_error_1.f90
@@ -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
+