From c0c8f05093dca6133d92674faf789f6ba9b544d0 Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Sun, 5 Oct 2014 21:11:37 +0000 Subject: [PATCH] re PR libfortran/63460 (Some namelists cannot be read from stdin (unit 5): Fortran runtime error: End of file) 2014-10-05 Jerry DeLisle 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 --- libgfortran/ChangeLog | 7 +++++++ libgfortran/io/unit.c | 1 + 2 files changed, 8 insertions(+) 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 + + 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 * 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;