diff options
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; |