diff options
Diffstat (limited to 'gcc/fortran/match.c')
| -rw-r--r-- | gcc/fortran/match.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/gcc/fortran/match.c b/gcc/fortran/match.c index 65af46a..a42fd7f 100644 --- a/gcc/fortran/match.c +++ b/gcc/fortran/match.c @@ -2894,13 +2894,15 @@ top_val_list (gfc_data * data) } else { - msg = gfc_extract_int (expr, &tail->repeat); + signed int tmp; + msg = gfc_extract_int (expr, &tmp); gfc_free_expr (expr); if (msg != NULL) { gfc_error (msg); return MATCH_ERROR; } + tail->repeat = tmp; m = match_data_constant (&tail->expr); if (m == MATCH_NO) |