From: Mikael Morin <mikael@gcc.gnu.org>
Date: Wed, 6 Oct 2010 16:21:12 +0000 (+0000)
Subject: trans-intrinsic.c (gfc_conv_intrinsic_funcall): Also free symbol's subcomponents.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=cebd5ce46df85de65b302c980fff26529a509d71;p=gcc.git

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 4f8a609278f..ce484d10ba9 100644
--- 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 a43bfc291fa..5a0a43ee033 100644
--- 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.