* trans-expr.c (get_proc_ptr_comp): Restore initial expression type
before calling gfc_free_expr.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@165048
138bc75d-0d04-0410-961f-
82ee72b054a4
2010-10-06 Mikael Morin <mikael@gcc.gnu.org>
+ * trans-stmt.c (gfc_trans_forall_1): Free forall struct at the end.
+
+2010-10-06 Mikael Morin <mikael@gcc.gnu.org>
+
* trans-expr.c (get_proc_ptr_comp): Restore initial expression type
before calling gfc_free_expr.
gfc_free (varexpr);
gfc_free (saved_vars);
+ for (this_forall = info->this_loop; this_forall;)
+ {
+ iter_info *next = this_forall->next;
+ gfc_free (this_forall);
+ this_forall = next;
+ }
+
/* Free the space for this forall_info. */
gfc_free (info);