Message ID | 20101005100948.1836.54158@gimli.local |
---|---|
State | New |
Headers | show |
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); } }