Message ID | 20101005100948.1836.18028@gimli.local |
---|---|
State | New |
Headers | show |
diff --git a/symbol.c b/symbol.c index cd07b63..c6ce5d6 100644 --- a/symbol.c +++ b/symbol.c @@ -4190,6 +4190,7 @@ gfc_copy_formal_args_ppc (gfc_component *dest, gfc_symbol *src) } /* Add the interface to the symbol. */ + gfc_free_formal_arglist (dest->formal); dest->formal = head; dest->attr.if_source = IFSRC_DECL;