------- Additional Comments From paulthomas2 at wanadoo dot fr 2004-12-10
14:24 -------
This runs correctly when read(10,*)I,X,P,Z,G is broken up into
read(10,*)I,X
read(10,*)P,Z,G
(In reply to comment #0)
> 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
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=17597
