[Bug libfortran/19216] New: formatted read with leading slash

[bdavis at gcc dot gnu dot org]

This is from FM923.FOR

$ cat b.f
       INTEGER J1I(3)
       DATA J1I / 3,2,1 /
       WRITE(20,'(A)')'/ 10 20 30'
       WRITE(20,'(A)')'1 2 3 4'
       WRITE(20,'(A)')'5 6 7 8'
       REWIND(20)
       READ(20,*) (J1I(IVI), IVI=1,3)
       PRINT*,(J1I(IVI), IVI=1,3)
       READ(20,*) I,J
       PRINT*,I,J
       READ(20,*) I,J
       PRINT*,I,J
       END
$ gfc b.f
$ ./a.out
           1           2           1
           5           6
At line 11 of file b.f
Fortran runtime error: End of file
$ g77 b.f
$ ./a.out
 3 2 1
 1 2
 5 6

$ gfc --version
GNU Fortran 95 (GCC 4.0.0 20050101 (experimental))

-- 
           Summary: formatted read with leading slash
           Product: gcc
           Version: 4.0.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: libfortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: bdavis at gcc dot gnu dot org
                CC: gcc-bugs at gcc dot gnu dot org


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