diff options
Diffstat (limited to 'libgfortran/io/unit.c')
-rw-r--r-- | libgfortran/io/unit.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/libgfortran/io/unit.c b/libgfortran/io/unit.c index 0b62ad9..559dba9 100644 --- a/libgfortran/io/unit.c +++ b/libgfortran/io/unit.c @@ -432,10 +432,9 @@ is_trim_ok (st_parameter_dt *dtp) if (dtp->common.flags & IOPARM_DT_HAS_FORMAT) { char *p = dtp->format; - off_t i; if (dtp->common.flags & IOPARM_DT_HAS_BLANK) return false; - for (i = 0; i < dtp->format_len; i++) + for (gfc_charlen_type i = 0; i < dtp->format_len; i++) { if (p[i] == '/') return false; if (p[i] == 'b' || p[i] == 'B') |