diff options
| author | pault <pault@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-07-22 17:43:31 +0000 |
|---|---|---|
| committer | pault <pault@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-07-22 17:43:31 +0000 |
| commit | 2929044d2c2dd186cf7f93f206379c92f473712d (patch) | |
| tree | 3a95dd409ddf3995841755400554a8e4fff1e5a4 /libgfortran | |
| parent | 724ea712365d7da3c454c8ab7ee557752ff7d1f3 (diff) | |
| download | gcc-2929044d2c2dd186cf7f93f206379c92f473712d.tar.gz | |
2005-07-22 Jerry DeLisle <jvdelisle@verizon.net>
PR libfortran/22570
* io/unit.c (init_units): Replace BLANK_ZERO with
BLANK_UNSPECIFIED.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@102288 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran')
| -rw-r--r-- | libgfortran/ChangeLog | 6 | ||||
| -rw-r--r-- | libgfortran/io/unit.c | 6 |
2 files changed, 9 insertions, 3 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index b9bfc492818..747ef9e9023 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,5 +1,11 @@ 2005-07-22 Jerry DeLisle <jvdelisle@verizon.net> + PR libfortran/22570 + * io/unit.c (init_units): Replace BLANK_ZERO with + BLANK_UNSPECIFIED. + +2005-07-22 Jerry DeLisle <jvdelisle@verizon.net> + PR libfortran/21875 (FM111.f) * io/read.c (next_char): Return a ' ' character when BLANK_ZERO or BLANK_NULL are active. diff --git a/libgfortran/io/unit.c b/libgfortran/io/unit.c index 9058665fb91..81e600067bf 100644 --- a/libgfortran/io/unit.c +++ b/libgfortran/io/unit.c @@ -304,7 +304,7 @@ init_units (void) u->flags.access = ACCESS_SEQUENTIAL; u->flags.form = FORM_FORMATTED; u->flags.status = STATUS_OLD; - u->flags.blank = BLANK_ZERO; + u->flags.blank = BLANK_UNSPECIFIED; u->flags.position = POSITION_ASIS; u->recl = options.default_recl; @@ -326,7 +326,7 @@ init_units (void) u->flags.access = ACCESS_SEQUENTIAL; u->flags.form = FORM_FORMATTED; u->flags.status = STATUS_OLD; - u->flags.blank = BLANK_ZERO; + u->flags.blank = BLANK_UNSPECIFIED; u->flags.position = POSITION_ASIS; u->recl = options.default_recl; @@ -348,7 +348,7 @@ init_units (void) u->flags.access = ACCESS_SEQUENTIAL; u->flags.form = FORM_FORMATTED; u->flags.status = STATUS_OLD; - u->flags.blank = BLANK_ZERO; + u->flags.blank = BLANK_UNSPECIFIED; u->flags.position = POSITION_ASIS; u->recl = options.default_recl; |