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

re PR fortran/58007 ([OOP] ICE in free_pi_tree(): Unresolved fixup - resolve_fixups does not fixup component of __class_bsr_Bsr_matrix)

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

From-SVN: r207118

gcc/fortran/ChangeLog

+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

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.  */