diff options
| author | Francois-Xavier Coudert <coudert@clipper.ens.fr> | 2005-09-10 00:01:19 +0200 |
|---|---|---|
| committer | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2005-09-09 22:01:19 +0000 |
| commit | 4f886942ff4d6b10308fd9ad0337bc9459788eb0 (patch) | |
| tree | 63c70585766efd6db6c7cda8590b82cdc6272832 | |
| parent | e0fd73d434096bcddab24fcbea3bbaebdc6652ad (diff) | |
| download | gcc-4f886942ff4d6b10308fd9ad0337bc9459788eb0.zip gcc-4f886942ff4d6b10308fd9ad0337bc9459788eb0.tar.gz gcc-4f886942ff4d6b10308fd9ad0337bc9459788eb0.tar.bz2 | |
* gfortran.dg/iostat_2.f90: New test.
From-SVN: r104110
| -rw-r--r-- | gcc/testsuite/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/iostat_2.f90 | 7 |
2 files changed, 11 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 3942c33..a8236a5 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 0000000..2b4cb5d --- /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 |