[gcc r15-6053] Fortran: fix two minor front-end GMP memleaks

[Harald Anlauf via Gcc-cvs]

https://gcc.gnu.org/g:d4525729b747827afa62320696709ca499904860

commit r15-6053-gd4525729b747827afa62320696709ca499904860
Author: Harald Anlauf <anl...@gmx.de>
Date:   Sun Dec 8 22:30:32 2024 +0100

    Fortran: fix two minor front-end GMP memleaks
    
    gcc/fortran/ChangeLog:
    
            * expr.cc (find_array_section): Do not initialize GMP variables
            twice.

Diff:
---
 gcc/fortran/expr.cc | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/gcc/fortran/expr.cc b/gcc/fortran/expr.cc
index a997bdae726a..a349d989d6c4 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++)