From 97de8e32b6d696fd44bc293442d02a63d4227b99 Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Fri, 8 Oct 2010 22:28:49 +0000 Subject: [PATCH] re PR fortran/45943 (gfortran.dg/streamio_16.f90: Fails under MinGW64 - probably \r\n vs \n issue) 2010-10-08 Jerry DeLisle PR fortran/45943 * gfortran.dg/streamio_16.f90: Update test. From-SVN: r165208 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gfortran.dg/streamio_16.f90 | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index dd23413753d..a5764707b1c 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2010-10-08 Jerry DeLisle + + PR fortran/45943 + * gfortran.dg/streamio_16.f90: Update test. + 2010-10-08 Jakub Jelinek PR tree-optimization/45903 diff --git a/gcc/testsuite/gfortran.dg/streamio_16.f90 b/gcc/testsuite/gfortran.dg/streamio_16.f90 index a415389c43a..7a1ab115da7 100644 --- a/gcc/testsuite/gfortran.dg/streamio_16.f90 +++ b/gcc/testsuite/gfortran.dg/streamio_16.f90 @@ -10,7 +10,7 @@ do i=1,17 read( 50, *,pos=i) inquire(50, access=sAccess, pos=mypos) if (sAccess.ne."STREAM") call abort - if (mypos.ne.18) call abort + if ((mypos.ne.18).and.(mypos.ne.19)) call abort end do read (50,*, end=10) call abort