diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2005-12-16 19:32:21 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2005-12-16 19:32:21 +0000 |
| commit | 494ef4c25495d4014677388a002715ac2eb018ed (patch) | |
| tree | ed85a1c7eab7de8f4194a119aa77e351e168bcda /libgfortran/io/unit.c | |
| parent | 282b7663e6a1695244b185fbd09e7e993a94c594 (diff) | |
| download | gcc-494ef4c25495d4014677388a002715ac2eb018ed.zip gcc-494ef4c25495d4014677388a002715ac2eb018ed.tar.gz gcc-494ef4c25495d4014677388a002715ac2eb018ed.tar.bz2 | |
re PR fortran/25264 (write to internal unit from the string itself gives wrong result ?)
2005-12-16 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/25264
PR libgfortran/25349
* io/unit.c (get_unit): Delete code that cleared the string when the
unit was opened, which is too soon.
* io/transfer.c (next_record_w): Pass done flag in. Change logic for
setting max_pos. Add code to position unit and pad record as needed.
From-SVN: r108671
Diffstat (limited to 'libgfortran/io/unit.c')
| -rw-r--r-- | libgfortran/io/unit.c | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/libgfortran/io/unit.c b/libgfortran/io/unit.c index 1366a9e..337e10c 100644 --- a/libgfortran/io/unit.c +++ b/libgfortran/io/unit.c @@ -384,9 +384,6 @@ get_unit (st_parameter_dt *dtp, int do_create) internal_unit.maxrec=0; internal_unit.current_record=0; - if (dtp->u.p.mode==WRITING && !is_array_io (dtp)) - empty_internal_buffer (internal_unit.s); - /* Set flags for the internal unit */ internal_unit.flags.access = ACCESS_SEQUENTIAL; |