OSDN Git Service

* gfortran.dg/iostat_2.f90: New test.
authorfxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4>
Fri, 9 Sep 2005 22:01:19 +0000 (22:01 +0000)
committerfxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4>
Fri, 9 Sep 2005 22:01:19 +0000 (22:01 +0000)
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@104110 138bc75d-0d04-0410-961f-82ee72b054a4

gcc/testsuite/ChangeLog
gcc/testsuite/gfortran.dg/iostat_2.f90 [new file with mode: 0644]

index 3942c33..a8236a5 100644 (file)
@@ -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 (file)
index 0000000..2b4cb5d
--- /dev/null
@@ -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