From: Francois-Xavier Coudert <coudert@clipper.ens.fr>
Date: Fri, 9 Sep 2005 22:01:19 +0000 (+0200)
Subject: * gfortran.dg/iostat_2.f90: New test.
X-Git-Tag: misc/cutover-cvs2svn~696
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=4f886942ff4d6b10308fd9ad0337bc9459788eb0;p=thirdparty%2Fgcc.git

* gfortran.dg/iostat_2.f90: New test.

From-SVN: r104110
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 3942c3348a86..a8236a5ecbf3 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2005-09-09  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
+
+	* gfortran.dg/iostat_2.f90: New test.
+
 2005-09-09  Mark Mitchell  <mark@codesourcery.com>
 
 	PR c++/22252
diff --git a/gcc/testsuite/gfortran.dg/iostat_2.f90 b/gcc/testsuite/gfortran.dg/iostat_2.f90
new file mode 100644
index 000000000000..2b4cb5d7e832
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/iostat_2.f90
@@ -0,0 +1,7 @@
+! PR libfortran/23784
+! { dg-do run }
+  integer i
+  close(10, status="whatever", iostat=i)
+  if (i == 0) call abort()
+  write(17,*) 'foo'
+  end