diff options
| author | Jerry DeLisle <jvdelisle@verizon.net> | 2005-07-22 17:43:31 +0000 |
|---|---|---|
| committer | Paul Thomas <pault@gcc.gnu.org> | 2005-07-22 17:43:31 +0000 |
| commit | d1cc97e081d63dd6c9a89014d2e2af6ac32c378e (patch) | |
| tree | 3a95dd409ddf3995841755400554a8e4fff1e5a4 | |
| parent | 9881e3e5e8b19559f67332ea3f027c315933aed0 (diff) | |
| download | gcc-d1cc97e081d63dd6c9a89014d2e2af6ac32c378e.zip gcc-d1cc97e081d63dd6c9a89014d2e2af6ac32c378e.tar.gz gcc-d1cc97e081d63dd6c9a89014d2e2af6ac32c378e.tar.bz2 | |
re PR libfortran/22570 (Null Characters instead of blanks in text output.)
2005-07-22 Jerry DeLisle <jvdelisle@verizon.net>
PR libfortran/22570
* io/unit.c (init_units): Replace BLANK_ZERO with
BLANK_UNSPECIFIED.
From-SVN: r102288
| -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 b9bfc49..747ef9e 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 9058665..81e6000 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; |