[Bug libfortran/63460] [4.9/5 Regression] Some namelists cannot be read from stdin (unit 5): Fortran runtime error: End of file

[Bug libfortran/63460] [4.9/5 Regression] Some namelists cannot be read from stdin (unit 5): Fortran runtime error: End of file

[dominiq at lps dot ens.fr]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=63460

Dominique d'Humieres <dominiq at lps dot ens.fr> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |NEW
   Last reconfirmed|                            |2014-10-05
                 CC|                            |jvdelisle at gcc dot gnu.org
            Summary|Some namelists cannot be    |[4.9/5 Regression] Some
                   |read from stdin (unit 5):   |namelists cannot be read
                   |Fortran runtime error: End  |from stdin (unit 5):
                   |of file                     |Fortran runtime error: End
                   |                            |of file
     Ever confirmed|0                           |1

--- Comment #1 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
Revision r208241 (2014-03-01) is OK, r208311 (2014-03-04) is not, likely
r208302 (pr60148).

[Bug libfortran/63460] [4.9/5 Regression] Some namelists cannot be read from stdin (unit 5): Fortran runtime error: End of file

[jvdelisle at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=63460

--- Comment #3 from Jerry DeLisle <jvdelisle at gcc dot gnu.org> ---
The following fixes this:

Index: unit.c
===================================================================
--- unit.c    (revision 215870)
+++ unit.c    (working copy)
@@ -580,6 +580,7 @@ init_units (void)
       u->flags.position = POSITION_ASIS;
       u->flags.sign = SIGN_SUPPRESS;
       u->flags.decimal = DECIMAL_POINT;
+      u->flags.delim = DECIMAL_UNSPECIFIED;
       u->flags.encoding = ENCODING_DEFAULT;
       u->flags.async = ASYNC_NO;
       u->flags.round = ROUND_UNSPECIFIED;

I will commit to trunk as obvious and simple after regression testing.

[Bug libfortran/63460] [4.9/5 Regression] Some namelists cannot be read from stdin (unit 5): Fortran runtime error: End of file

[jvdelisle at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=63460

--- Comment #4 from Jerry DeLisle <jvdelisle at gcc dot gnu.org> ---
Author: jvdelisle
Date: Sun Oct  5 21:11:37 2014
New Revision: 215908

URL: https://gcc.gnu.org/viewcvs?rev=215908&root=gcc&view=rev
Log:
2014-10-05  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

        PR libgfortran/63460
        * io/unit.c (init_units): Initialize the DELIM flag to
        UNSPECIFIED for the STDIN unit so that the flag is
        correctly set later.

Modified:
    trunk/libgfortran/ChangeLog
    trunk/libgfortran/io/unit.c