From: Tobias Burnus <burnus@net-b.de>
Date: Wed, 20 Apr 2011 18:07:52 +0000 (+0200)
Subject: re PR fortran/48588 (ICE (segfault) in gfc_get_nodesc_array_type)
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=8721a387af0ddc6e88fb30a3b08498ff2db8e127;p=gcc.git

re PR fortran/48588 (ICE (segfault) in gfc_get_nodesc_array_type)

2011-04-19  Tobias Burnus  <burnus@net-b.de>

        PR fortran/48588
        PR fortran/48692

        * module.c (fix_mio_expr): Commit created symbol.

From-SVN: r172782
---

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index ca02edfa7b5..7a857a47664 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,10 @@
+2011-04-19  Tobias Burnus  <burnus@net-b.de>
+
+	PR fortran/48588
+	PR fortran/48692
+
+	* module.c (fix_mio_expr): Commit created symbol.
+
 2011-04-19  Janne Blomqvist  <jb@gcc.gnu.org>
 
 	* scanner.c (load_file): Use XCNEWVAR instead of xcalloc.
diff --git a/gcc/fortran/module.c b/gcc/fortran/module.c
index e97354f713f..42e8e002692 100644
--- a/gcc/fortran/module.c
+++ b/gcc/fortran/module.c
@@ -3013,6 +3013,7 @@ fix_mio_expr (gfc_expr *e)
       sym->attr.flavor = FL_PROCEDURE;
       sym->attr.generic = 1;
       e->symtree = gfc_find_symtree (gfc_current_ns->sym_root, fname);
+      gfc_commit_symbol (sym);
     }
 }