From 02e694ef2ba2f1e95cdf5464915b98ea64c609d5 Mon Sep 17 00:00:00 2001 From: Thomas Koenig Date: Mon, 12 Feb 2018 20:48:32 +0000 Subject: [PATCH] re PR fortran/68746 (FAIL: gfortran.dg/read_dir.f90 -O0 execution test) 2018-02-12 Thomas Koenig PR fortran/68746 * gfortran.dg/read_dir.f90: Remove xfails. Also allow iostat of zero for read. From-SVN: r257604 --- gcc/testsuite/ChangeLog | 6 ++++++ 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 8f22a65c7bb..2ce200b5ffd 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,9 @@ +2018-02-12 Thomas Koenig + + PR fortran/68746 + * gfortran.dg/read_dir.f90: Remove xfails. Also allow iostat + of zero for read. + 2018-02-12 Jeff Law * 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 9df01426e9b..474f1d0e10e 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 -- 2.30.2