diff options
| author | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-10-05 21:11:37 +0000 |
|---|---|---|
| committer | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-10-05 21:11:37 +0000 |
| commit | 4b848d71bee3c41fa62349b5897faaf5c1deee6e (patch) | |
| tree | f0b605fe129b5e08cb6f39b9f057b9b9cea040fb | |
| parent | 18299cf6901581d86dd18d4377878289e9b04334 (diff) | |
| download | gcc-4b848d71bee3c41fa62349b5897faaf5c1deee6e.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@215908 138bc75d-0d04-0410-961f-82ee72b054a4
| -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 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; |