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

 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.
 	* trans-array.h (gfc_free_ss_chain): New prototype.
 	* trans-stmt.c (gfc_trans_where_2): Free ss chains.

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);
 	}
 
     }