From 2c693a24a05776bfdc330219fdd0d91896a5b412 Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Sun, 29 Oct 2006 16:43:48 +0000 Subject: [PATCH] re PR fortran/17741 (ICE in gfc_free_namespace, at fortran/symbol.c:2208) 2006-10-29 Jerry DeLisle PR fortran/17741 * decl.c (get_proc_name): Bump current namespace refs count. From-SVN: r118149 --- gcc/fortran/ChangeLog | 5 +++++ gcc/fortran/decl.c | 1 + 2 files changed, 6 insertions(+) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 31c6c6f4713..e32f8414fa1 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2006-10-29 Jerry DeLisle + + PR fortran/17741 + * decl.c (get_proc_name): Bump current namespace refs count. + 2006-10-29 Jakub Jelinek PR fortran/29629 diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c index fbd2bbbe360..e17e9e3436d 100644 --- a/gcc/fortran/decl.c +++ b/gcc/fortran/decl.c @@ -642,6 +642,7 @@ get_proc_name (const char *name, gfc_symbol ** result, rc = gfc_get_symbol (name, gfc_current_ns->parent, result); sym = *result; + gfc_current_ns->refs++; if (sym && !sym->new && gfc_current_state () != COMP_INTERFACE) { -- 2.30.2