public inbox for gcc-bugs@sourceware.org
help / color / mirror / Atom feed
* [Bug libfortran/17597] New: list directed read has error
@ 2004-09-22 1:08 bdavis at gcc dot gnu dot org
2004-09-22 3:55 ` [Bug libfortran/17597] " pinskia at gcc dot gnu dot org
` (4 more replies)
0 siblings, 5 replies; 6+ messages in thread
From: bdavis at gcc dot gnu dot org @ 2004-09-22 1:08 UTC (permalink / raw)
To: gcc-bugs
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
^ permalink raw reply [flat|nested] 6+ messages in thread
* [Bug libfortran/17597] list directed read has error
2004-09-22 1:08 [Bug libfortran/17597] New: list directed read has error bdavis at gcc dot gnu dot org
@ 2004-09-22 3:55 ` pinskia at gcc dot gnu dot org
2004-12-10 14:24 ` paulthomas2 at wanadoo dot fr
` (3 subsequent siblings)
4 siblings, 0 replies; 6+ messages in thread
From: pinskia at gcc dot gnu dot org @ 2004-09-22 3:55 UTC (permalink / raw)
To: gcc-bugs
------- Additional Comments From pinskia at gcc dot gnu dot org 2004-09-22 03:55 -------
Confirmed.
--
What |Removed |Added
----------------------------------------------------------------------------
Status|UNCONFIRMED |NEW
Ever Confirmed| |1
Last reconfirmed|0000-00-00 00:00:00 |2004-09-22 03:55:01
date| |
Version|unknown |4.0.0
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=17597
^ permalink raw reply [flat|nested] 6+ messages in thread
* [Bug libfortran/17597] list directed read has error
2004-09-22 1:08 [Bug libfortran/17597] New: list directed read has error bdavis at gcc dot gnu dot org
2004-09-22 3:55 ` [Bug libfortran/17597] " pinskia at gcc dot gnu dot org
@ 2004-12-10 14:24 ` paulthomas2 at wanadoo dot fr
2004-12-10 18:03 ` sgk at troutmask dot apl dot washington dot edu
` (2 subsequent siblings)
4 siblings, 0 replies; 6+ messages in thread
From: paulthomas2 at wanadoo dot fr @ 2004-12-10 14:24 UTC (permalink / raw)
To: gcc-bugs
------- 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
^ permalink raw reply [flat|nested] 6+ messages in thread
* [Bug libfortran/17597] list directed read has error
2004-09-22 1:08 [Bug libfortran/17597] New: list directed read has error bdavis at gcc dot gnu dot org
2004-09-22 3:55 ` [Bug libfortran/17597] " pinskia at gcc dot gnu dot org
2004-12-10 14:24 ` paulthomas2 at wanadoo dot fr
@ 2004-12-10 18:03 ` sgk at troutmask dot apl dot washington dot edu
2004-12-15 12:43 ` cvs-commit at gcc dot gnu dot org
2004-12-15 13:06 ` giovannibajo at libero dot it
4 siblings, 0 replies; 6+ messages in thread
From: sgk at troutmask dot apl dot washington dot edu @ 2004-12-10 18:03 UTC (permalink / raw)
To: gcc-bugs
------- Additional Comments From sgk at troutmask dot apl dot washington dot edu 2004-12-10 18:03 -------
The patch included here
http://gcc.gnu.org/ml/fortran/2004-12/msg00088.html
fixes this problem.
--
steve
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=17597
^ permalink raw reply [flat|nested] 6+ messages in thread
* [Bug libfortran/17597] list directed read has error
2004-09-22 1:08 [Bug libfortran/17597] New: list directed read has error bdavis at gcc dot gnu dot org
` (2 preceding siblings ...)
2004-12-10 18:03 ` sgk at troutmask dot apl dot washington dot edu
@ 2004-12-15 12:43 ` cvs-commit at gcc dot gnu dot org
2004-12-15 13:06 ` giovannibajo at libero dot it
4 siblings, 0 replies; 6+ messages in thread
From: cvs-commit at gcc dot gnu dot org @ 2004-12-15 12:43 UTC (permalink / raw)
To: gcc-bugs
------- Additional Comments From cvs-commit at gcc dot gnu dot org 2004-12-15 12:42 -------
Subject: Bug 17597
CVSROOT: /cvs/gcc
Module name: gcc
Changes by: bdavis@gcc.gnu.org 2004-12-15 12:42:41
Modified files:
gcc/testsuite : ChangeLog
libgfortran/io : list_read.c
libgfortran : ChangeLog
Added files:
gcc/testsuite/gfortran.dg: list_read_3.f90
Log message:
2004-12-15 Bud Davis <bdavis9659@comcast.net>
Steven G. Kargl <kargls@comcast.net>
PR fortran/17597
* io/list_read.c (read_real): do not push back a comma when
it delimits a real value without a decimal point
2004-12-15 Bud Davis <bdavis9659@comcast.net>
Steven G. Kargle <kargls@comcast.net>
PR fortran/17597
* gfortran.dg/list_read_3.f90: New test.
Patches:
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/testsuite/ChangeLog.diff?cvsroot=gcc&r1=1.4760&r2=1.4761
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/testsuite/gfortran.dg/list_read_3.f90.diff?cvsroot=gcc&r1=NONE&r2=1.1
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/libgfortran/io/list_read.c.diff?cvsroot=gcc&r1=1.11&r2=1.12
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/libgfortran/ChangeLog.diff?cvsroot=gcc&r1=1.138&r2=1.139
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=17597
^ permalink raw reply [flat|nested] 6+ messages in thread
* [Bug libfortran/17597] list directed read has error
2004-09-22 1:08 [Bug libfortran/17597] New: list directed read has error bdavis at gcc dot gnu dot org
` (3 preceding siblings ...)
2004-12-15 12:43 ` cvs-commit at gcc dot gnu dot org
@ 2004-12-15 13:06 ` giovannibajo at libero dot it
4 siblings, 0 replies; 6+ messages in thread
From: giovannibajo at libero dot it @ 2004-12-15 13:06 UTC (permalink / raw)
To: gcc-bugs
------- Additional Comments From giovannibajo at libero dot it 2004-12-15 13:05 -------
Fixed
--
What |Removed |Added
----------------------------------------------------------------------------
Status|NEW |RESOLVED
Resolution| |FIXED
Target Milestone|--- |4.0.0
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=17597
^ permalink raw reply [flat|nested] 6+ messages in thread
end of thread, other threads:[~2004-12-15 13:06 UTC | newest]
Thread overview: 6+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2004-09-22 1:08 [Bug libfortran/17597] New: list directed read has error bdavis at gcc dot gnu dot org
2004-09-22 3:55 ` [Bug libfortran/17597] " pinskia at gcc dot gnu dot org
2004-12-10 14:24 ` paulthomas2 at wanadoo dot fr
2004-12-10 18:03 ` sgk at troutmask dot apl dot washington dot edu
2004-12-15 12:43 ` cvs-commit at gcc dot gnu dot org
2004-12-15 13:06 ` giovannibajo at libero dot it
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).