[gcc r13-8490] Fortran: fix FE memleak

[Harald Anlauf via Gcc-cvs]

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

commit r13-8490-gc65c4c6af5b5321f1a517dd045ab1344e849135a
Author: Harald Anlauf <anl...@gmx.de>
Date:   Wed Jan 3 20:21:00 2024 +0100

    Fortran: fix FE memleak
    
    gcc/fortran/ChangeLog:
    
            * trans-types.cc (gfc_get_nodesc_array_type): Clear used gmp
            variables.

Diff:
---
 gcc/fortran/trans-types.cc | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/gcc/fortran/trans-types.cc b/gcc/fortran/trans-types.cc
index b514d8e5a57..b2a3000da1f 100644
--- a/gcc/fortran/trans-types.cc
+++ b/gcc/fortran/trans-types.cc
@@ -1791,7 +1791,7 @@ gfc_get_nodesc_array_type (tree etype, gfc_array_spec * 
as, gfc_packed packed,
          TYPE_LANG_SPECIFIC (type) = TYPE_LANG_SPECIFIC (TREE_TYPE (type));
        }
 
-      return type;
+      goto array_type_done;
     }
 
   if (known_stride)
@@ -1810,10 +1810,6 @@ gfc_get_nodesc_array_type (tree etype, gfc_array_spec * 
as, gfc_packed packed,
 
   layout_type (type);
 
-  mpz_clear (offset);
-  mpz_clear (stride);
-  mpz_clear (delta);
-
   /* Represent packed arrays as multi-dimensional if they have rank >
      1 and with proper bounds, instead of flat arrays.  This makes for
      better debug info.  */
@@ -1844,6 +1840,12 @@ gfc_get_nodesc_array_type (tree etype, gfc_array_spec * 
as, gfc_packed packed,
       GFC_ARRAY_TYPE_P (type) = 1;
       TYPE_LANG_SPECIFIC (type) = TYPE_LANG_SPECIFIC (TREE_TYPE (type));
     }
+
+array_type_done:
+  mpz_clear (offset);
+  mpz_clear (stride);
+  mpz_clear (delta);
+
   return type;
 }