diff options
Diffstat (limited to 'gcc/fortran/expr.cc')
| -rw-r--r-- | gcc/fortran/expr.cc | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/fortran/expr.cc b/gcc/fortran/expr.cc index a997bda..a349d98 100644 --- a/gcc/fortran/expr.cc +++ b/gcc/fortran/expr.cc @@ -1613,7 +1613,7 @@ find_array_section (gfc_expr *expr, gfc_ref *ref) /* Zero-sized arrays have no shape and no elements, stop early. */ if (!begin->shape) { - mpz_init_set_ui (nelts, 0); + mpz_set_ui (nelts, 0); break; } @@ -1714,7 +1714,7 @@ find_array_section (gfc_expr *expr, gfc_ref *ref) constructor. */ for (idx = 0; idx < (int) mpz_get_si (nelts); idx++) { - mpz_init_set_ui (ptr, 0); + mpz_set_ui (ptr, 0); incr_ctr = true; for (d = 0; d < rank; d++) |