------- Comment #1 from hjl at lucon dot org 2007-12-09 12:14 ------- 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 @@ -- hjl at lucon dot org changed: What |Removed |Added ---------------------------------------------------------------------------- CC| |burnus at gcc dot gnu dot | |org http://gcc.gnu.org/bugzilla/show_bug.cgi?id=34404
