diff options
Diffstat (limited to 'gcc/fortran/check.c')
| -rw-r--r-- | gcc/fortran/check.c | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/gcc/fortran/check.c b/gcc/fortran/check.c index 66e661b..eb8b3e1 100644 --- a/gcc/fortran/check.c +++ b/gcc/fortran/check.c @@ -511,7 +511,6 @@ dim_check (gfc_expr *dim, int n, bool optional) static gfc_try dim_corank_check (gfc_expr *dim, gfc_expr *array) { - gfc_array_ref *ar; int corank; gcc_assert (array->expr_type == EXPR_VARIABLE); @@ -519,8 +518,7 @@ dim_corank_check (gfc_expr *dim, gfc_expr *array) if (dim->expr_type != EXPR_CONSTANT) return SUCCESS; - ar = gfc_find_array_ref (array); - corank = ar->as->corank; + corank = gfc_get_corank (array); if (mpz_cmp_ui (dim->value.integer, 1) < 0 || mpz_cmp_ui (dim->value.integer, corank) > 0) |