[Bug fortran/55827] ICE with multiple fortran modules and character lenght determined by an interfaced pure function

[kargl at gcc dot gnu.org]

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

kargl at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |NEW
   Last reconfirmed|                            |2012-12-28
                 CC|                            |kargl at gcc dot gnu.org
     Ever Confirmed|0                           |1
      Known to fail|                            |4.2.5, 4.3.6, 4.4.7, 4.5.4,
                   |                            |4.6.4, 4.7.2, 4.8.0

--- Comment #2 from kargl at gcc dot gnu.org 2012-12-28 22:02:43 UTC ---
Here's a possible patch against trunk.  I'm not
familiar with the internals for CLASS, so the
change to class.c may need some additional work.

Index: class.c
===================================================================
--- class.c     (revision 194745)
+++ class.c     (working copy)
@@ -162,7 +162,8 @@ gfc_fix_class_refs (gfc_expr *e)
   if ((e->expr_type != EXPR_VARIABLE
        && e->expr_type != EXPR_FUNCTION)
       || (e->expr_type == EXPR_FUNCTION
-         && e->value.function.isym != NULL))
+         && e->value.function.isym != NULL)
+      || e->symtree == NULL)
     return;

   ts = &e->symtree->n.sym->ts;
Index: trans-expr.c
===================================================================
--- trans-expr.c        (revision 194745)
+++ trans-expr.c        (working copy)
@@ -5527,7 +5527,7 @@ gfc_conv_function_expr (gfc_se * se, gfc

   /* We distinguish statement functions from general functions to improve
      runtime performance.  */
-  if (expr->symtree->n.sym->attr.proc == PROC_ST_FUNCTION)
+  if (expr->symtree && expr->symtree->n.sym->attr.proc == PROC_ST_FUNCTION)
     {
       gfc_conv_statement_function (se, expr);