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

From-SVN: r104110

* gfortran.dg/iostat_2.f90: New test.
4f886942 · Francois-Xavier Coudert · François-Xavier Coudert · e0fd73d4 · 4f886942 · 4f886942
Commit 4f886942 authored 19 years ago by Francois-Xavier Coudert Committed by François-Xavier Coudert 19 years ago
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
+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
--- a/gcc/testsuite/gfortran.dg/iostat_2.f90
+++ b/gcc/testsuite/gfortran.dg/iostat_2.f90
+! PR libfortran/23784
+! { dg-do run }
+  integer i
+  close(10, status="whatever", iostat=i)
+  if (i == 0) call abort()
+  write(17,*) 'foo'
+  end