From 4f886942ff4d6b10308fd9ad0337bc9459788eb0 Mon Sep 17 00:00:00 2001
From: Francois-Xavier Coudert <coudert@clipper.ens.fr>
Date: Sat, 10 Sep 2005 00:01:19 +0200
Subject: [PATCH] * gfortran.dg/iostat_2.f90: New test.

From-SVN: r104110
---
 gcc/testsuite/ChangeLog                | 4 ++++
 gcc/testsuite/gfortran.dg/iostat_2.f90 | 7 +++++++
 2 files changed, 11 insertions(+)
 create mode 100644 gcc/testsuite/gfortran.dg/iostat_2.f90

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 3942c3348a8..a8236a5ecbf 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 00000000000..2b4cb5d7e83
--- /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
-- 
2.30.2