From: Thomas Koenig <tkoenig@gcc.gnu.org>
Date: Mon, 12 Feb 2018 20:48:32 +0000 (+0000)
Subject: re PR fortran/68746 (FAIL: gfortran.dg/read_dir.f90   -O0  execution test)
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=02e694ef2ba2f1e95cdf5464915b98ea64c609d5;p=gcc.git

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
---

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  <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 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