From: kargl <kargl@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Sun, 23 Oct 2011 22:30:00 +0000 (+0000)
Subject: 2011-10-23  Steven G. Kargl  <kargl@gcc.gnu.org>
X-Git-Url: http://git.sourceforge.jp/view?a=commitdiff_plain;h=e44d4bfa29fb25164ebe83d552e17f1700b24a6a;p=pf3gnuchains%2Fgcc-fork.git

2011-10-23  Steven G. Kargl  <kargl@gcc.gnu.org>

    * simplify.c (simplify_transformation_to_array): Fix memory leak.


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

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 251bd45fd26..cdee2edfe3d 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,7 @@
+2011-10-23  Steven G. Kargl  <kargl@gcc.gnu.org>
+
+	* simplify.c (simplify_transformation_to_array): Fix memory leak.
+ 
 2011-10-20  Steven G. Kargl  <kargl@gcc.gnu.org>
 
 	PR fortran/50821
diff --git a/gcc/fortran/simplify.c b/gcc/fortran/simplify.c
index 63689bb700c..a499996934a 100644
--- a/gcc/fortran/simplify.c
+++ b/gcc/fortran/simplify.c
@@ -516,6 +516,7 @@ simplify_transformation_to_array (gfc_expr *result, gfc_expr *array, gfc_expr *d
      linked-list traversal. Masked elements are set to NULL.  */
   gfc_array_size (array, &size);
   arraysize = mpz_get_ui (size);
+  mpz_clear (size);
 
   arrayvec = XCNEWVEC (gfc_expr*, arraysize);