re PR fortran/58007 ([OOP] ICE in free_pi_tree(): Unresolved fixup - resolve_fixups...

fortran/
        PR fortran/58007
        * module.c (read_module): Assert for component name correctness.

From-SVN: r207118

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 802ca7321481010f2140bf60464dbd00bc609252..aacf31b3c6b84fd1a227e4fc10e493fe4d8eaac0 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2014-01-26  Mikael Morin  <mikael@gcc.gnu.org>
+
+       PR fortran/58007
+       * module.c (read_module): Assert for component name correctness.
+
 2014-01-18  Mikael Morin  <mikael@gcc.gnu.org>
 
        PR fortran/58007

diff --git a/gcc/fortran/module.c b/gcc/fortran/module.c
index 90fe7b9484177b5f06de4958af44ad096315ca05..52fdebe340cc8b1b3f6542de28f23b0a2468f4b1 100644 (file)
--- a/gcc/fortran/module.c
+++ b/gcc/fortran/module.c
@@ -4613,6 +4613,7 @@ read_module (void)
          for (c = sym->components; c; c = c->next)
            {
              pointer_info *p;
+             const char *comp_name;
              int n;
 
              mio_lparen (); /* component opening.  */
@@ -4620,6 +4621,8 @@ read_module (void)
              p = get_integer (n);
              if (p->u.pointer == NULL)
                associate_integer_pointer (p, c);
+             mio_pool_string (&comp_name);
+             gcc_assert (comp_name == c->name);
              skip_list (1); /* component end.  */
            }
          mio_rparen (); /* component list closing.  */