diff mbox

[fortran,14/22] Various minor fixups

Message ID 20101005100948.1836.18028@gimli.local
State New
Headers show

Commit Message

Mikael Morin Oct. 5, 2010, 10:11 a.m. UTC 
2010-10-04  Mikael Morin  <mikael@gcc.gnu.org>

	* symbol.c (gfc_copy_formal_args_ppc): Free previous formal arg list
	before overwriting it.
diff mbox

Patch

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;