diff options
Diffstat (limited to 'gcc/fortran/symbol.c')
| -rw-r--r-- | gcc/fortran/symbol.c | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/gcc/fortran/symbol.c b/gcc/fortran/symbol.c index d4cbd0b..bf709fa 100644 --- a/gcc/fortran/symbol.c +++ b/gcc/fortran/symbol.c @@ -2965,9 +2965,12 @@ gfc_free_finalizer (gfc_finalizer* el) { if (el) { - --el->procedure->refs; - if (!el->procedure->refs) - gfc_free_symbol (el->procedure); + if (el->proc_sym) + { + --el->proc_sym->refs; + if (!el->proc_sym->refs) + gfc_free_symbol (el->proc_sym); + } gfc_free (el); } |