diff options
Diffstat (limited to 'libgfortran/io/rewind.c')
| -rw-r--r-- | libgfortran/io/rewind.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libgfortran/io/rewind.c b/libgfortran/io/rewind.c index 76fd1948e05..d9758a6d5ec 100644 --- a/libgfortran/io/rewind.c +++ b/libgfortran/io/rewind.c @@ -40,7 +40,7 @@ st_rewind (void) "Cannot REWIND a file opened for DIRECT access"); else { - if (g.mode==WRITING) + if (u->mode==WRITING) struncate(u->s); u->last_record = 0; if (sseek (u->s, 0) == FAILURE) |