diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2014-10-05 21:11:37 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2014-10-05 21:11:37 +0000 |
| commit | c0c8f05093dca6133d92674faf789f6ba9b544d0 (patch) | |
| tree | f0b605fe129b5e08cb6f39b9f057b9b9cea040fb | |
| parent | 0ca06d0371892feef80dcdc9d543cb95b230bd40 (diff) | |
| download | gcc-c0c8f05093dca6133d92674faf789f6ba9b544d0.zip gcc-c0c8f05093dca6133d92674faf789f6ba9b544d0.tar.gz gcc-c0c8f05093dca6133d92674faf789f6ba9b544d0.tar.bz2 | |
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
| -rw-r--r-- | libgfortran/ChangeLog | 7 | ||||
| -rw-r--r-- | libgfortran/io/unit.c | 1 |
2 files changed, 8 insertions, 0 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index f01d021..836afa5 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 5cc51b5..2a31e55 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; |