diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2006-10-29 16:43:48 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2006-10-29 16:43:48 +0000 |
| commit | 2c693a24a05776bfdc330219fdd0d91896a5b412 (patch) | |
| tree | 31fe4220c093e07a31036bd18274a63079e7092d /gcc/fortran/decl.c | |
| parent | 044928d6127efd397fe450718e994768d7caa61e (diff) | |
| download | gcc-2c693a24a05776bfdc330219fdd0d91896a5b412.zip gcc-2c693a24a05776bfdc330219fdd0d91896a5b412.tar.gz gcc-2c693a24a05776bfdc330219fdd0d91896a5b412.tar.bz2 | |
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
Diffstat (limited to 'gcc/fortran/decl.c')
| -rw-r--r-- | gcc/fortran/decl.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c index fbd2bbb..e17e9e3 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) { |