Summary: | [4.3 Regression] 168.wupwise in SPEC CPU 2000 miscompiled | ||
---|---|---|---|
Product: | gcc | Reporter: | H.J. Lu <hjl.tools> |
Component: | libfortran | Assignee: | Not yet assigned to anyone <unassigned> |
Status: | RESOLVED FIXED | ||
Severity: | normal | CC: | burnus, gcc-bugs |
Priority: | P3 | ||
Version: | 4.3.0 | ||
Target Milestone: | --- | ||
Host: | Target: | ||
Build: | Known to work: | ||
Known to fail: | Last reconfirmed: | 2007-12-09 12:25:11 | |
Bug Depends on: | |||
Bug Blocks: | 32834 |
Description
H.J. Lu
2007-12-09 11:27:49 UTC
Revision 130708 http://gcc.gnu.org/viewcvs/trunk/libgfortran/io/list_read.c?r1=130708&r2=130707&pathrev=130708 has @@ -1136,6 +1141,13 @@ exp2: if (!isdigit (c)) + { + if (c == 'i' || c == 'I' || c == 'n' || c == 'N') + goto inf_nan; + else + goto bad; + } + goto bad; <------ Should be removed. push_char (dtp, c); @@ -1166,6 +1178,41 @@ The input data file has (2.4E-1, 0.0E+0) It is read by COMPLEX*16 X ... READ(10,*) X complex :: x character(len=80) :: t="(1.0E-7,4.0E-3)" read(t,*) x END confirmed Subject: Bug 34404 Author: burnus Date: Sun Dec 9 12:58:25 2007 New Revision: 130723 URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=130723 Log: 2007-12-09 Tobias Burnus <burnus@net-b.de> PR fortran/34404 * io/list_read.c (parse_real): Remove superfluous "goto bad;". 2007-12-09 H.J. Lu <hjl@lucon.org> Tobias Burnus <burnus@net-b.de> PR fortran/34404 * gfortran.dg/read_2.f90: New. Added: trunk/gcc/testsuite/gfortran.dg/read_2.f90 Modified: trunk/gcc/testsuite/ChangeLog trunk/libgfortran/ChangeLog trunk/libgfortran/io/list_read.c Thanks for the fix and thanks Joost for the test case. FIXED. |