diff options
Diffstat (limited to 'libgfortran/io/open.c')
| -rw-r--r-- | libgfortran/io/open.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libgfortran/io/open.c b/libgfortran/io/open.c index e16386c..d95eccb 100644 --- a/libgfortran/io/open.c +++ b/libgfortran/io/open.c @@ -611,7 +611,7 @@ new_unit (st_parameter_open *opp, gfc_unit *u, unit_flags * flags) { u->maxrec = max_offset; u->recl = 1; - u->strm_pos = 1; + u->strm_pos = file_position (u->s) + 1; } memmove (u->file, opp->file, opp->file_len); |