[Bug libfortran/26880] New: Can't read after non-advancing write with rewind

[jvdelisle at gcc dot gnu dot org]

I found this problem while putting together the test case for 26661.  The
rewind should allow the read to occur.

      implicit none
      character(3) a(4)
      integer i
      open (10)
 10   format(A,$)
      write(10,10)' abc def ghi jkl'
      rewind(10)
      read(10,20)(a(i),i=1,4)
      if (a(4).ne."jkl") call abort()
 20   format(1x,a3,1x,a3,1x,a3,1x,a3,10x)
      close(10, status="delete")
      end


$ ./a.out
At line 12 of file read_x_past.f
Fortran runtime error: Cannot READ after a nonadvancing WRITE


-- 
           Summary: Can't read after non-advancing write with rewind
           Product: gcc
           Version: 4.2.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: libfortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: jvdelisle at gcc dot gnu dot org


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=26880