* trans-stmt.c (gfc_trans_allocate): free lhs expr.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@165053
138bc75d-0d04-0410-961f-
82ee72b054a4
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.
fold_convert (TREE_TYPE (lse.expr), tmp));
}
}
+ gfc_free_expr (lhs);
}
}