diff options
| -rw-r--r-- | libgfortran/ChangeLog | 7 | ||||
| -rw-r--r-- | libgfortran/io/transfer.c | 7 |
2 files changed, 14 insertions, 0 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index ba0257d..46fc3b3 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,10 @@ +2005-04-09 Bud Davis <bdavis@gfortran.org> + Steven G. Kargl <kargls@comcast.net> + + PR fortran/19872 + * io/transfer.c (data_transfer_init): truncate an existing + file on the first write. + 2005-04-09 Thomas Koenig <Thomas.Koenig@online.de> PR libfortran/19106 diff --git a/libgfortran/io/transfer.c b/libgfortran/io/transfer.c index 4d48323..f86a852 100644 --- a/libgfortran/io/transfer.c +++ b/libgfortran/io/transfer.c @@ -1103,6 +1103,13 @@ data_transfer_init (int read_flag) generate_error (ERROR_OS, NULL); } + /* Overwriting an existing sequential file ? + 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) + struncate(current_unit->s); + current_unit->mode = g.mode; /* Set the initial value of flags. */ |