re PR fortran/17741 (ICE in gfc_free_namespace, at fortran/symbol.c:2208)

2006-10-29  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR fortran/17741
	* decl.c (get_proc_name): Bump current namespace refs count.

From-SVN: r118149

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 31c6c6f471363d16b3f586a47d8c9bf46df10d18..e32f8414fa19ba1ad69c3a9d2eac64f683f0c544 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2006-10-29  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+       PR fortran/17741
+       * decl.c (get_proc_name): Bump current namespace refs count.
+
 2006-10-29  Jakub Jelinek  <jakub@redhat.com>
 
        PR fortran/29629

diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c
index fbd2bbbe360375ec6b39b59b65aea970aadc472b..e17e9e3436d490fb928b7da4f31ab468e79f798b 100644 (file)
--- 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)
     {