diff options
Diffstat (limited to 'libgfortran/io/unit.c')
| -rw-r--r-- | libgfortran/io/unit.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/libgfortran/io/unit.c b/libgfortran/io/unit.c index 2bd40e4..ed3bc32 100644 --- a/libgfortran/io/unit.c +++ b/libgfortran/io/unit.c @@ -439,9 +439,10 @@ 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 (gfc_charlen_type i = 0; i < dtp->format_len; i++) + for (i = 0; i < dtp->format_len; i++) { if (p[i] == '/') return false; if (p[i] == 'b' || p[i] == 'B') |