diff options
| author | Thomas Koenig <tkoenig@gcc.gnu.org> | 2018-02-12 20:48:32 +0000 |
|---|---|---|
| committer | Thomas Koenig <tkoenig@gcc.gnu.org> | 2018-02-12 20:48:32 +0000 |
| commit | 02e694ef2ba2f1e95cdf5464915b98ea64c609d5 (patch) | |
| tree | 6f9b6202a0a70d3b083a34a7be5879667774e3a2 /gcc | |
| parent | e9bfdf18cb4f6fd6d323bc1a9008d2e717670ff7 (diff) | |
| download | gcc-02e694ef2ba2f1e95cdf5464915b98ea64c609d5.zip gcc-02e694ef2ba2f1e95cdf5464915b98ea64c609d5.tar.gz gcc-02e694ef2ba2f1e95cdf5464915b98ea64c609d5.tar.bz2 | |
re PR fortran/68746 (FAIL: gfortran.dg/read_dir.f90 -O0 execution test)
2018-02-12 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/68746
* gfortran.dg/read_dir.f90: Remove xfails. Also allow iostat
of zero for read.
From-SVN: r257604
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/read_dir.f90 | 3 |
2 files changed, 7 insertions, 2 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 8f22a65..2ce200b 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,9 @@ +2018-02-12 Thomas Koenig <tkoenig@gcc.gnu.org> + + PR fortran/68746 + * gfortran.dg/read_dir.f90: Remove xfails. Also allow iostat + of zero for read. + 2018-02-12 Jeff Law <law@redhat.com> * gcc.c-torture/compile/reg-args-size.c: New test. diff --git a/gcc/testsuite/gfortran.dg/read_dir.f90 b/gcc/testsuite/gfortran.dg/read_dir.f90 index 9df0142..474f1d0 100644 --- a/gcc/testsuite/gfortran.dg/read_dir.f90 +++ b/gcc/testsuite/gfortran.dg/read_dir.f90 @@ -1,4 +1,3 @@ -! { dg-do run { xfail *-*-freebsd* *-*-dragonfly* hppa*-*-hpux* powerpc-ibm-aix* } } ! PR67367 program bug implicit none @@ -12,7 +11,7 @@ program bug call abort end if read(10, iostat=ios) c - if (ios.ne.21) then + if (ios.ne.21.and.ios.ne.0) then close(10, status='delete') call abort end if |