diff options
Diffstat (limited to 'gcc-4.6/libgfortran/io/inquire.c')
| -rw-r--r-- | gcc-4.6/libgfortran/io/inquire.c | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/gcc-4.6/libgfortran/io/inquire.c b/gcc-4.6/libgfortran/io/inquire.c index 252f29f..97bd9b6 100644 --- a/gcc-4.6/libgfortran/io/inquire.c +++ b/gcc-4.6/libgfortran/io/inquire.c @@ -409,7 +409,10 @@ inquire_via_unit (st_parameter_inquire *iqp, gfc_unit * u) if (u == NULL) *iqp->size = -1; else - *iqp->size = file_size (u->file, (gfc_charlen_type) u->file_len); + { + sflush (u->s); + *iqp->size = file_length (u->s); + } } } |