* symbol.c (gfc_copy_formal_args_ppc): Free previous formal arg list
before overwriting it.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@165040
138bc75d-0d04-0410-961f-
82ee72b054a4
2010-10-06 Mikael Morin <mikael@gcc.gnu.org>
+ * symbol.c (gfc_copy_formal_args_ppc): Free previous formal arg list
+ before overwriting it.
+
+2010-10-06 Mikael Morin <mikael@gcc.gnu.org>
+
* array.c (gfc_match_array_spec): Don't re-initialize cleared struct.
* symbol.c (gen_shape_param): Ditto.
}
/* Add the interface to the symbol. */
+ gfc_free_formal_arglist (dest->formal);
dest->formal = head;
dest->attr.if_source = IFSRC_DECL;