From: Mikael Morin <mikael@gcc.gnu.org>
Date: Wed, 6 Oct 2010 16:39:27 +0000 (+0000)
Subject: trans-stmt.c (gfc_trans_allocate): free lhs expr.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=c956e9af46f6467e438e6e5154da43778ebc116f;p=gcc.git

trans-stmt.c (gfc_trans_allocate): free lhs expr.

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

	* trans-stmt.c (gfc_trans_allocate): free lhs expr.

From-SVN: r165053
---

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 6a2316d1ccc..355ed145abb 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,7 @@
+2010-10-06  Mikael Morin  <mikael@gcc.gnu.org>
+
+	* trans-stmt.c (gfc_trans_allocate): free lhs expr.
+
 2010-10-06  Mikael Morin  <mikael@gcc.gnu.org>
 
 	* trans-array.c (gfc_free_ss_chain): Made non-static.
diff --git a/gcc/fortran/trans-stmt.c b/gcc/fortran/trans-stmt.c
index c0ffd161b78..70ddd51902f 100644
--- a/gcc/fortran/trans-stmt.c
+++ b/gcc/fortran/trans-stmt.c
@@ -4567,6 +4567,7 @@ gfc_trans_allocate (gfc_code * code)
 			fold_convert (TREE_TYPE (lse.expr), tmp));
 		}
 	    }
+	  gfc_free_expr (lhs);
 	}
 
     }