re PR libfortran/63460 (Some namelists cannot be read from stdin (unit 5): Fortran...

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.

From-SVN: r215908

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index f01d021cf010db8048d4b0fc7593dd3479517645..836afa52443206a58f81de10bd7f44a7070533c3 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,10 @@
+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.
+
 2014-10-01  Janne Blomqvist  <jb@gcc.gnu.org>
 
        * intrinsics/pack_generic.c (pack_s_internal): Fix

diff --git a/libgfortran/io/unit.c b/libgfortran/io/unit.c
index 5cc51b56766fe58c6fe3eae642a189ae589acabe..2a31e55bc30d60ae01e73336308ccfa704b0fe5c 100644 (file)
--- a/libgfortran/io/unit.c
+++ b/libgfortran/io/unit.c
@@ -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;