From c956e9af46f6467e438e6e5154da43778ebc116f Mon Sep 17 00:00:00 2001
From: Mikael Morin <mikael@gcc.gnu.org>
Date: Wed, 6 Oct 2010 16:39:27 +0000
Subject: [PATCH] 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
---
gcc/fortran/ChangeLog | 4 ++++
gcc/fortran/trans-stmt.c | 1 +
2 files changed, 5 insertions(+)
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 6a2316d1ccc6..355ed145abba 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 c0ffd161b789..70ddd51902fb 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);
}
}
--
GitLab