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

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

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@165208 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index dd23413..a576470 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
 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 a415389..7a1ab11 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
   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
 end do
 read (50,*, end=10)
 call abort