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 ed3bc32..2bd40e4 100644 --- a/libgfortran/io/unit.c +++ b/libgfortran/io/unit.c @@ -439,10 +439,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') |