diff options
Diffstat (limited to 'gcc/fortran/primary.c')
| -rw-r--r-- | gcc/fortran/primary.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/gcc/fortran/primary.c b/gcc/fortran/primary.c index 4b6ad47..3d07673 100644 --- a/gcc/fortran/primary.c +++ b/gcc/fortran/primary.c @@ -1006,7 +1006,8 @@ static match match_string_constant (gfc_expr **result) { char name[GFC_MAX_SYMBOL_LEN + 1], peek; - int i, kind, length, save_warn_ampersand, ret; + size_t length; + int kind,save_warn_ampersand, ret; locus old_locus, start_locus; gfc_symbol *sym; gfc_expr *e; @@ -1125,7 +1126,7 @@ got_delim: warn_ampersand = false; p = e->value.character.string; - for (i = 0; i < length; i++) + for (size_t i = 0; i < length; i++) { c = next_string_char (delimiter, &ret); |