OSDN Git Service

2010-10-08 Jerry DeLisle <jvdelisle@gcc.gnu.org>
authorjvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4>
Fri, 8 Oct 2010 22:28:49 +0000 (22:28 +0000)
committerjvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4>
Fri, 8 Oct 2010 22:28:49 +0000 (22:28 +0000)
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

gcc/testsuite/ChangeLog
gcc/testsuite/gfortran.dg/streamio_16.f90

index dd23413..a576470 100644 (file)
@@ -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
index a415389..7a1ab11 100644 (file)
@@ -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