diff options
Diffstat (limited to 'libgfortran/io/transfer.c')
-rw-r--r-- | libgfortran/io/transfer.c | 7 |
1 files changed, 0 insertions, 7 deletions
diff --git a/libgfortran/io/transfer.c b/libgfortran/io/transfer.c index 717041d0b41..27ae8994918 100644 --- a/libgfortran/io/transfer.c +++ b/libgfortran/io/transfer.c @@ -2332,7 +2332,6 @@ data_transfer_init (st_parameter_dt *dtp, int read_flag) if (dtp->pos != dtp->u.p.current_unit->strm_pos) { fbuf_flush (dtp->u.p.current_unit, dtp->u.p.mode); - sflush (dtp->u.p.current_unit->s); if (sseek (dtp->u.p.current_unit->s, dtp->pos - 1, SEEK_SET) < 0) { generate_error (&dtp->common, LIBERROR_OS, NULL); @@ -3143,11 +3142,6 @@ finalize_transfer (st_parameter_dt *dtp) && dtp->u.p.advance_status != ADVANCE_NO) next_record (dtp, 1); - if (dtp->u.p.current_unit->flags.form == FORM_UNFORMATTED - && stell (dtp->u.p.current_unit->s) >= dtp->rec) - { - sflush (dtp->u.p.current_unit->s); - } return; } @@ -3169,7 +3163,6 @@ finalize_transfer (st_parameter_dt *dtp) dtp->u.p.current_unit->saved_pos = dtp->u.p.max_pos > 0 ? dtp->u.p.max_pos - bytes_written : 0; fbuf_flush (dtp->u.p.current_unit, dtp->u.p.mode); - sflush (dtp->u.p.current_unit->s); return; } else if (dtp->u.p.current_unit->flags.form == FORM_FORMATTED |