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

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 4f8a609278f5e24350554622600611930ee98ea8..ce484d10ba9a6dfb4592c66a71d45d0f407c3b3c 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+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.

diff --git a/gcc/fortran/trans-intrinsic.c b/gcc/fortran/trans-intrinsic.c
index a43bfc291fa9e4d1e730d1dfd979c8805e76e605..5a0a43ee033f07781b84882e9418f97b49602dcc 100644 (file)
--- a/gcc/fortran/trans-intrinsic.c
+++ b/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.