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

From-SVN: r104110

* gfortran.dg/iostat_2.f90: New test.
From-SVN: r104110
4f886942 · Francois-Xavier Coudert · François-Xavier Coudert · e0fd73d4 · 4f886942 · 4f886942
Commit 4f886942 authored Sep 10, 2005 by Francois-Xavier Coudert Committed by François-Xavier Coudert Sep 09, 2005
Hide whitespace changes
Inline Side-by-side

Showing with 11 additions and 0 deletions

gcc/testsuite/ChangeLog
+4 -0

gcc/testsuite/gfortran.dg/iostat_2.f90
+7 -0

No files found.
--- 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