re PR fortran/45943 (gfortran.dg/streamio_16.f90: Fails under MinGW64 - probably...

2010-10-08  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR fortran/45943
	* gfortran.dg/streamio_16.f90: Update test.

From-SVN: r165208

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index dd23413753da756fce1bbf2c701737e326e6cea4..a5764707b1c230b830133e4b6d5f9adee13d4f4b 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2010-10-08  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+       PR fortran/45943
+       * gfortran.dg/streamio_16.f90: Update test.
+
 2010-10-08  Jakub Jelinek  <jakub@redhat.com>
 
        PR tree-optimization/45903

diff --git a/gcc/testsuite/gfortran.dg/streamio_16.f90 b/gcc/testsuite/gfortran.dg/streamio_16.f90
index a415389c43aede9910e38627e262cfd1da21a9fa..7a1ab115da7dd7891c516e3da78435538793bacf 100644 (file)
--- 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