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 b3a995b3de2d035cecb8e1df31407f12baedc2b9..49d9bdb18fb727302ea19e2b0c5eef53f2d83b32 100644 (file)
--- 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 ce39b8cf4275c3d082d85a5a11864e4486ec23ad..5613086fbe0756b4668e9ff52629589ecf3a325e 100644 (file)
--- 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;
     }