[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.