From 0ebdf3ae98f374c2270d92b19d6d3465422fbe4f Mon Sep 17 00:00:00 2001 From: Tobias Burnus Date: Mon, 16 Sep 2013 20:01:59 +0200 Subject: re PR fortran/58356 (ICE with finalization and type extension) 2013-09-16 Tobias Burnus PR fortran/58356 * class.c (generate_finalization_wrapper): Init proc_tree if not yet resolved. 2013-09-16 Tobias Burnus PR fortran/58356 * gfortran.dg/finalize_19.f90: New. From-SVN: r202633 --- gcc/fortran/class.c | 2 ++ 1 file changed, 2 insertions(+) (limited to 'gcc/fortran/class.c') diff --git a/gcc/fortran/class.c b/gcc/fortran/class.c index 629b052..7117e83 100644 --- a/gcc/fortran/class.c +++ b/gcc/fortran/class.c @@ -1881,6 +1881,8 @@ generate_finalization_wrapper (gfc_symbol *derived, gfc_namespace *ns, for (fini = derived->f2k_derived->finalizers; fini; fini = fini->next) { + if (!fini->proc_tree) + fini->proc_tree = gfc_find_sym_in_symtree (fini->proc_sym); if (fini->proc_tree->n.sym->attr.elemental) { fini_elem = fini; -- cgit v1.1