transfer.c (data_transfer_init): Truncate file in sequential WRITE when…

transfer.c (data_transfer_init): Truncate file in sequential WRITE when last_record == 0, rather than current_record.

2005-08-04 Paul Thomas  <pault@gcc.gnu.org>

	* transfer.c (data_transfer_init): Truncate file in
	sequential WRITE when last_record == 0, rather than
	current_record.  Cures problem on RH9.

From-SVN: r102746

libgfortran/ChangeLog

+2005-08-04 Paul Thomas  <pault@gcc.gnu.org>
+
+	* 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  <coudert@clipper.ens.fr>
 
 	* libgfortran.h: When isfinite is not provided by the system,

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;