From 4b848d71bee3c41fa62349b5897faaf5c1deee6e Mon Sep 17 00:00:00 2001 From: jvdelisle Date: Sun, 5 Oct 2014 21:11:37 +0000 Subject: 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. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@215908 138bc75d-0d04-0410-961f-82ee72b054a4 --- 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; -- cgit v1.2.1