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

	* 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

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 4f8a609..ce484d1 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,5 +1,10 @@
 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>

diff --git a/gcc/fortran/trans-intrinsic.c b/gcc/fortran/trans-intrinsic.c
index a43bfc2..5a0a43e 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.