[Bug libfortran/17597] New: list directed read has error

[bdavis at gcc dot gnu dot org]

here is the list directed read example from the F2003 draft standard:


$ cat a.f
! taken from F2003 standard
       integer I
       real X(8)
       data X / 8*0.0/
       character*20 P
       complex z
       logical g
       open(UNIT=10)
       write(10,'(A)') '12345,12345,,2*1.5,4*'
       write(10,'(A)') "ISN'T_BOB'S,(123,0),.TEXAS$"
       rewind(10)
       read(10,*)I,X,P,Z,G
       print*,I,X,P,Z,G
       end
 
$ gfc a.f
$ ./a.out
At line 12 of file a.f
Fortran runtime error: Bad complex value in item 11 of list input



$ g77 a.f
$ ./a.out
 12345  12345.  0.  1.5  1.5  0.  0.  0.  0.ISN'T_BOB'S          (123.,0.) T

-- 
           Summary: list directed read has error
           Product: gcc
           Version: unknown
            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=17597