------- 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

Reply via email to