From: Mikael Morin <mikael@gcc.gnu.org>
Date: Sun, 3 Mar 2013 17:24:19 +0000 (+0000)
Subject: symbol.c (restore_old_symbol): Fix thinko.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=4ef9b950005a24aab3b0ea7da77f16292ef587b4;p=gcc.git

symbol.c (restore_old_symbol): Fix thinko.

fortran/
	* symbol.c (restore_old_symbol): Fix thinko.

From-SVN: r196413
---

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index b3a995b3de2..49d9bdb18fb 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,7 @@
+2013-03-03  Mikael Morin  <mikael@gcc.gnu.org>
+
+	* symbol.c (restore_old_symbol): Fix thinko.
+
 2013-03-03  Mikael Morin  <mikael@gcc.gnu.org>
 
 	* symbol.c (gfc_undo_symbols): Move code...
diff --git a/gcc/fortran/symbol.c b/gcc/fortran/symbol.c
index ce39b8cf427..5613086fbe0 100644
--- a/gcc/fortran/symbol.c
+++ b/gcc/fortran/symbol.c
@@ -2896,7 +2896,8 @@ restore_old_symbol (gfc_symbol *p)
 
   if (p->value != old->value)
     {
-      gfc_free_expr (old->value);
+      gcc_checking_assert (old->value == NULL);
+      gfc_free_expr (p->value);
       p->value = NULL;
     }