From: Tobias Burnus <burnus@net-b.de>
Date: Sun, 2 Sep 2012 06:40:27 +0000 (+0200)
Subject: re PR fortran/54426 (FAIL: gfortran.dg/common_6.f90  -O  (internal compiler error... 
X-Git-Tag: misc/gccgo-go1_1_2~1097
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=603cf12f58f33ebf64e339c6e6a18f6f70d74e9f;p=thirdparty%2Fgcc.git

re PR fortran/54426 (FAIL: gfortran.dg/common_6.f90  -O  (internal compiler error) on powerpc-apple-darwin9)

2012-09-02  Tobias Burnus  <burnus@net-b.de>

        PR fortran/54426
        * symbol.c (find_common_symtree): New function.
        (gfc_undo_symbols): Use it; free common_head if needed.

From-SVN: r190853
---

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 582eb26f2c0c..ea3bb324db27 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,9 @@
+2012-09-02  Tobias Burnus  <burnus@net-b.de>
+
+	PR fortran/54426
+	* symbol.c (find_common_symtree): New function.
+	(gfc_undo_symbols): Use it; free common_head if needed.
+
 2012-08-28  Tobias Burnus  <burnus@net-b.de>
 
 	PR fortran/54389
diff --git a/gcc/fortran/symbol.c b/gcc/fortran/symbol.c
index 5e97c4086d10..8d3b56c95695 100644
--- a/gcc/fortran/symbol.c
+++ b/gcc/fortran/symbol.c
@@ -2867,6 +2867,30 @@ gfc_get_ha_symbol (const char *name, gfc_symbol **result)
   return i;
 }
 
+
+/* Search for the symtree belonging to a gfc_common_head; we cannot use
+   head->name as the common_root symtree's name might be mangled.  */
+
+static gfc_symtree *
+find_common_symtree (gfc_symtree *st, gfc_common_head *head)
+{
+
+  gfc_symtree *result;
+
+  if (st == NULL)
+    return NULL;
+
+  if (st->n.common == head)
+    return st;
+
+  result = find_common_symtree (st->left, head);
+  if (!result)  
+    result = find_common_symtree (st->right, head);
+
+  return result;
+}
+
+
 /* Undoes all the changes made to symbols in the current statement.
    This subroutine is made simpler due to the fact that attributes are
    never removed once added.  */
@@ -2890,6 +2914,17 @@ gfc_undo_symbols (void)
 		 needs to be removed to stop the resolver looking
 		 for a (possibly) dead symbol.  */
 
+	      if (p->common_block->head == p && !p->common_next)
+		{
+		  gfc_symtree st, *st0;
+		  st0 = find_common_symtree (p->ns->common_root,
+					     p->common_block);
+
+		  st.name = st0->name;
+		  gfc_delete_bbt (&p->ns->common_root, &st, compare_symtree);
+		  free (st0);
+		}
+
 	      if (p->common_block->head == p)
 	        p->common_block->head = p->common_next;
 	      else