[Bug fortran/55818] Reading a REAL from a file which doesn't end in a new line fails

[jvdelisle at gcc dot gnu.org]

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

--- Comment #2 from Jerry DeLisle <jvdelisle at gcc dot gnu.org> 2012-12-28 01:05:18 UTC ---
Possible patch, testing.

Index: list_read.c
===================================================================
--- list_read.c    (revision 194731)
+++ list_read.c    (working copy)
@@ -1429,6 +1429,7 @@ read_real (st_parameter_dt *dtp, void * dest, int
       goto got_sign;

     CASE_SEPARATORS:
+    case EOF:
       unget_char (dtp, c);        /* Single null.  */
       eat_separator (dtp);
       return;
@@ -1484,6 +1485,7 @@ read_real (st_parameter_dt *dtp, void * dest, int
       goto got_repeat;

     CASE_SEPARATORS:
+    case EOF:
           if (c != '\n' && c != ',' && c != '\r' && c != ';')
         unget_char (dtp, c);
       goto done;