2010-10-06 Mikael Morin <mikael@gcc.gnu.org>

	* 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

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 63a818c..7d2f798 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,5 +1,10 @@
 2010-10-06  Mikael Morin  <mikael@gcc.gnu.org>
 
 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.
 
        * array.c (gfc_match_array_spec): Don't re-initialize cleared struct.
        * symbol.c (gen_shape_param): Ditto.
 

diff --git a/gcc/fortran/symbol.c b/gcc/fortran/symbol.c
index 93199cf..9dd7549 100644 (file)
--- a/gcc/fortran/symbol.c
+++ b/gcc/fortran/symbol.c
@@ -4203,6 +4203,7 @@ gfc_copy_formal_args_ppc (gfc_component *dest, gfc_symbol *src)
     }
 
   /* Add the interface to the symbol.  */
     }
 
   /* Add the interface to the symbol.  */

+  gfc_free_formal_arglist (dest->formal);

   dest->formal = head;
   dest->attr.if_source = IFSRC_DECL;
 
   dest->formal = head;
   dest->attr.if_source = IFSRC_DECL;