* trans-intrinsic.c (gfc_conv_intrinsic_funcall): Also free symbol's
subcomponents.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@165049
138bc75d-0d04-0410-961f-
82ee72b054a4
2010-10-06 Mikael Morin <mikael@gcc.gnu.org>
+ * trans-intrinsic.c (gfc_conv_intrinsic_funcall): Also free symbol's
+ subcomponents.
+
+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>
gfc_conv_procedure_call (se, sym, expr->value.function.actual, expr,
append_args);
- gfc_free (sym);
+ gfc_free_symbol (sym);
}
/* ANY and ALL intrinsics. ANY->op == NE_EXPR, ALL->op == EQ_EXPR.