diff mbox

[fortran,22/22] Various minor fixups

Message ID 20101005100948.1836.54158@gimli.local
State New
Headers show

Commit Message

Mikael Morin Oct. 5, 2010, 10:11 a.m. UTC 
2010-10-04  Mikael Morin  <mikael@gcc.gnu.org>

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

Patch

diff --git a/trans-stmt.c b/trans-stmt.c
index 82cddd7..dcab260 100644
--- a/trans-stmt.c
+++ b/trans-stmt.c
@@ -4567,6 +4567,7 @@  gfc_trans_allocate (gfc_code * code)
 			fold_convert (TREE_TYPE (lse.expr), tmp));
 		}
 	    }
+	  gfc_free_expr (lhs);
 	}
 
     }