From 494ef4c25495d4014677388a002715ac2eb018ed Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Fri, 16 Dec 2005 19:32:21 +0000 Subject: re PR fortran/25264 (write to internal unit from the string itself gives wrong result ?) 2005-12-16 Jerry DeLisle 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 --- libgfortran/io/unit.c | 3 --- 1 file changed, 3 deletions(-) (limited to 'libgfortran/io/unit.c') 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; -- cgit v1.1