[Bug fortran/47667] I/O for reals: READ waits for input after "i" and "n"

[jvdelisle at gcc dot gnu.org]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=47667

--- Comment #4 from Jerry DeLisle <jvdelisle at gcc dot gnu.org> 2011-02-11 
06:20:15 UTC ---
Probable patch:

Index: list_read.c
===================================================================
--- list_read.c    (revision 170042)
+++ list_read.c    (working copy)
@@ -1726,8 +1726,9 @@ read_real (st_parameter_dt *dtp, void * dest, int
       hit_eof (dtp);
       return;
     }
-  else
+  else if (c != '\n')
     eat_line (dtp);
+
   sprintf (message, "Bad real number in item %d of list input",
           dtp->u.p.item_count);
   generate_error (&dtp->common, LIBERROR_READ_VALUE, message);

Regression testing now.