[fortran, patch] PR17741 ICE in gfc_free_namespace, at fortran/symbol.c:2208

[Jerry DeLisle]

The attached patch is trivial.  The refs count in current_ns was not being 
bumped up for initial function declarations.  So when an error occurs and we 
bail out early, we were getting an assert in gfc_free_namespace when the 
statement is rejected.

Putting the added line in gfc_match_function_decl () instead also solves the 
problem.

Regression tested on i686-linux.

OK for 4.3?

Regards,

Jerry

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

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



-------------- next part --------------
A non-text attachment was scrubbed...
Name: pr17741.diff
Type: text/x-patch
Size: 423 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20061029/39786c6c/attachment.bin>