diff mbox

[fortran,20/22] Various minor fixups

Message ID 20101005100948.1836.6954@gimli.local
State New
Headers show

Commit Message

Mikael Morin Oct. 5, 2010, 10:11 a.m. UTC 
2010-10-04  Mikael Morin  <mikael@gcc.gnu.org>

	* trans-intrinsic.c (gfc_conv_intrinsic_funcall): Also free symbol's
	subcomponents.
diff mbox

Patch

diff --git a/trans-intrinsic.c b/trans-intrinsic.c
index 6e9bfaf..5f2241c 100644
--- a/trans-intrinsic.c
+++ b/trans-intrinsic.c
@@ -1843,7 +1843,7 @@  gfc_conv_intrinsic_funcall (gfc_se * se, gfc_expr * expr)
 
   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.