Revision 130713 got Running 168.wupwise ref base o2 default *** Miscompare of te.out, see /export/spec/src/2000/i686/spec/benchspec/CFP2000/168.wupwise/run/00000002/te.out.mis *** Miscompare of wupwise.out, see /export/spec/src/2000/i686/spec/benchspec/CFP2000/168.wupwise/run/00000002/wupwise.out.mis Invalid run; unable to continue. If you wish to ignore errors please use '-I' or ignore_errors At line 37 of file init.f (unit = 10, file = 'wupwise.in') Fortran runtime error: Bad floating point number for item 1 Revision 130596 is OK.
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.