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
This commit is contained in:
Mikael Morin 2010-10-06 16:39:27 +00:00
parent fcba55090e
commit c956e9af46
2 changed files with 5 additions and 0 deletions

View File

@ -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.

View File

@ -4567,6 +4567,7 @@ gfc_trans_allocate (gfc_code * code)
fold_convert (TREE_TYPE (lse.expr), tmp));
}
}
gfc_free_expr (lhs);
}
}