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

gcc/fortran/ChangeLog

+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

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)
     {