[Bug fortran/42257] [OOP] Compiler segmentation fault due missing public statement

[janus at gcc dot gnu dot org]

------- Comment #2 from janus at gcc dot gnu dot org  2009-12-11 15:54 -------
Here is a patch which fixes the ICE:

Index: gcc/fortran/module.c
===================================================================
--- gcc/fortran/module.c        (revision 155160)
+++ gcc/fortran/module.c        (working copy)
@@ -4670,6 +4670,10 @@ write_equiv (void)
 static void
 write_dt_extensions (gfc_symtree *st)
 {
+  if (!gfc_check_access (st->n.sym->attr.access,
+                        st->n.sym->ns->default_access))
+    return;
+
   mio_lparen ();
   mio_pool_string (&st->n.sym->name);
   if (st->n.sym->module != NULL)


-- 

janus at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
         AssignedTo|unassigned at gcc dot gnu   |janus at gcc dot gnu dot org
                   |dot org                     |
             Status|NEW                         |ASSIGNED
   Last reconfirmed|2009-12-03 07:32:13         |2009-12-11 15:54:55
               date|                            |


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=42257