https://gcc.gnu.org/g:13b6ac4ebd04f0703d92828c9268b0b216890b0d

commit r15-391-g13b6ac4ebd04f0703d92828c9268b0b216890b0d
Author: Harald Anlauf <anl...@gmx.de>
Date:   Sun May 12 21:48:03 2024 +0200

    Fortran: fix frontend memleak
    
    gcc/fortran/ChangeLog:
    
            * primary.cc (gfc_match_varspec): Replace 'ref' argument to
            is_inquiry_ref() by NULL when the result is not needed to avoid
            a memleak.

Diff:
---
 gcc/fortran/primary.cc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/gcc/fortran/primary.cc b/gcc/fortran/primary.cc
index 606e84432be6..8e7833769a8f 100644
--- a/gcc/fortran/primary.cc
+++ b/gcc/fortran/primary.cc
@@ -2250,7 +2250,7 @@ gfc_match_varspec (gfc_expr *primary, int equiv_flag, 
bool sub_flag,
         can be found.  If this was an inquiry reference with the same name
         as a derived component and the associate-name type is not derived
         or class, this is fixed up in 'gfc_fixup_inferred_type_refs'.  */
-      if (mm == MATCH_YES && is_inquiry_ref (name, &tmp)
+      if (mm == MATCH_YES && is_inquiry_ref (name, NULL)
          && !(sym->ts.type == BT_UNKNOWN
                && gfc_find_derived_types (sym, gfc_current_ns, name)))
        inquiry = true;

Reply via email to