diff options
Diffstat (limited to 'libgfortran/io/rewind.c')
| -rw-r--r-- | libgfortran/io/rewind.c | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/libgfortran/io/rewind.c b/libgfortran/io/rewind.c index d9758a6..7be2328 100644 --- a/libgfortran/io/rewind.c +++ b/libgfortran/io/rewind.c @@ -40,8 +40,13 @@ st_rewind (void) "Cannot REWIND a file opened for DIRECT access"); else { + /* If we have been writing to the file, the last written record + is the last record in the file, so trincate the file now. + Reset to read mode so two consecutive rewind statements + don't delete the file contents. */ if (u->mode==WRITING) struncate(u->s); + u->mode = READING; u->last_record = 0; if (sseek (u->s, 0) == FAILURE) generate_error (ERROR_OS, NULL); |