diff options
| author | Paul Brook <paul@codesourcery.com> | 2004-08-27 13:44:52 +0000 |
|---|---|---|
| committer | Paul Brook <pbrook@gcc.gnu.org> | 2004-08-27 13:44:52 +0000 |
| commit | c100eff11e8b829171a4d63dac7571d3aa38f7e6 (patch) | |
| tree | 054a0d89cce6f0607917769f263772691935db23 /libgfortran/io/rewind.c | |
| parent | 57406c63cd1ce307b1f4df4d24468a1df7fc59d7 (diff) | |
| download | gcc-c100eff11e8b829171a4d63dac7571d3aa38f7e6.zip gcc-c100eff11e8b829171a4d63dac7571d3aa38f7e6.tar.gz gcc-c100eff11e8b829171a4d63dac7571d3aa38f7e6.tar.bz2 | |
rewind.c (st_rewind): Reset unit to read mode.
* io/rewind.c (st_rewind): Reset unit to read mode.
testsuite/
* gfortran.dg/rewind_1.f90: New test.
From-SVN: r86659
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); |