From: Jerry DeLisle <jvdelisle@gcc.gnu.org>
Date: Sun, 5 Oct 2014 21:11:37 +0000 (+0000)
Subject: re PR libfortran/63460 (Some namelists cannot be read from stdin (unit 5): Fortran... 
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=c0c8f05093dca6133d92674faf789f6ba9b544d0;p=gcc.git

re PR libfortran/63460 (Some namelists cannot be read from stdin (unit 5): Fortran runtime error: End of file)

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 f01d021cf01..836afa52443 100644
--- 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 5cc51b56766..2a31e55bc30 100644
--- 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;