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

2010-10-06  Mikael Morin  <mikael@gcc.gnu.org>

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

From-SVN: r165049

gcc/fortran/ChangeLog

 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>

gcc/fortran/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.