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 | |
| 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')
| -rw-r--r-- | gcc/fortran/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/fortran/decl.c | 1 |
2 files changed, 6 insertions, 0 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 31c6c6f..e32f841 100644 --- 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 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) { |