From 185423574d7092df7e8e2c54b41a0c6ae71d4688 Mon Sep 17 00:00:00 2001 From: pault Date: Thu, 4 Aug 2005 20:26:29 +0000 Subject: [PATCH] 2005-08-04 Paul Thomas * transfer.c (data_transfer_init): Truncate file in sequential WRITE when last_record == 0, rather than current_record. Cures problem on RH9. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@102746 138bc75d-0d04-0410-961f-82ee72b054a4 --- libgfortran/ChangeLog | 6 ++++++ libgfortran/io/transfer.c | 2 +- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index e725012..35f21d9 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,9 @@ +2005-08-04 Paul Thomas + + * transfer.c (data_transfer_init): Truncate file in + sequential WRITE when last_record == 0, rather than + current_record. Cures problem on RH9. + 2005-08-03 Francois-Xavier Coudert * libgfortran.h: When isfinite is not provided by the system, diff --git a/libgfortran/io/transfer.c b/libgfortran/io/transfer.c index 357e090..72cc2b9 100644 --- a/libgfortran/io/transfer.c +++ b/libgfortran/io/transfer.c @@ -1171,7 +1171,7 @@ data_transfer_init (int read_flag) it is always safe to truncate the file on the first write */ if (g.mode == WRITING && current_unit->flags.access == ACCESS_SEQUENTIAL - && current_unit->current_record == 0) + && current_unit->last_record == 0) struncate(current_unit->s); current_unit->mode = g.mode; -- 2.7.4