------- Comment #15 from mikael at gcc dot gnu dot org 2010-07-30 12:05 ------- The symtree allocated at decl.c:7811
/* Insert it and set attributes. */ if (!stree) { stree = gfc_new_symtree (&ns->tb_sym_root, name); gcc_assert (stree); } has to be freed in gfc_undo_symbols, together with its corresponding typebound procedure at symbol.c:~2960 for (tbp = tentative_tbp_list; tbp; tbp = tbq) { tbq = tbp->next; /* Procedure is already marked `error' by default. */ gfc_free (tbp); } -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=44584