From: mikael <mikael@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Wed, 6 Oct 2010 15:21:00 +0000 (+0000)
Subject: 2010-10-06  Mikael Morin  <mikael@gcc.gnu.org>
X-Git-Tag: upstream/4.9.2~26090
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=d03b222bfcdf97746d32bdaffdd1af5215bdeea0;p=platform%2Fupstream%2Flinaro-gcc.git

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

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



git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@165037 138bc75d-0d04-0410-961f-82ee72b054a4
---

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index c1ed716..97df7a5 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,5 +1,10 @@
 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
 	returning.
 
diff --git a/gcc/fortran/symbol.c b/gcc/fortran/symbol.c
index cd07b63..b06afe4 100644
--- 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);
     }
 }