symbol.c (free_components): Free list of formal args and formal namespace.

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

	* symbol.c (free_components): Free list of formal args and formal
	namespace.

From-SVN: r165037

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index c1ed716e78f352be063544c35ac5215c1dfdc996..97df7a5b48e77d87f6c12871368f572527bf0111 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2010-10-06  Mikael Morin  <mikael@gcc.gnu.org>
+
+       * symbol.c (free_components): Free list of formal args and formal
+       namespace.
+
 2010-10-06  Mikael Morin  <mikael@gcc.gnu.org>
 
        * simplify.c (gfc_simplify_size): Clear temporary mpz int before

diff --git a/gcc/fortran/symbol.c b/gcc/fortran/symbol.c
index cd07b63cacad6012f210fd97f25013253dc02e4d..b06afe44f3cb2c2ab9497ac993cdf368c626610d 100644 (file)
--- a/gcc/fortran/symbol.c
+++ b/gcc/fortran/symbol.c
@@ -2049,6 +2049,9 @@ free_components (gfc_component *p)
       gfc_free_array_spec (p->as);
       gfc_free_expr (p->initializer);
 
+      gfc_free_formal_arglist (p->formal);
+      gfc_free_namespace (p->formal_ns);
+
       gfc_free (p);
     }
 }