diff options
| author | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-12-16 19:32:21 +0000 |
|---|---|---|
| committer | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-12-16 19:32:21 +0000 |
| commit | 3fded2acb5550cde42bcac7fb2196adcc8a3f370 (patch) | |
| tree | ed85a1c7eab7de8f4194a119aa77e351e168bcda /libgfortran/io/unit.c | |
| parent | 0c836bd3039b541bb53a479a89366fdf0144df20 (diff) | |
| download | gcc-3fded2acb5550cde42bcac7fb2196adcc8a3f370.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@108671 138bc75d-0d04-0410-961f-82ee72b054a4
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 1366a9e14a8..337e10c44c3 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; |