[Bug fortran/82606] ICE in gfc_extract_int, at fortran/expr.c:641

[kargl at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=82606

kargl at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |kargl at gcc dot gnu.org

--- Comment #3 from kargl at gcc dot gnu.org ---
Index: expr.c
===================================================================
--- expr.c      (revision 253587)
+++ expr.c      (working copy)
@@ -636,6 +636,9 @@ gfc_extract_int (gfc_expr *expr, int *result, int repo
           if (ref->u.c.component->attr.pdt_kind)
             expr = ref->u.c.component->initializer;
        }
+
+       if (!expr)
+         return true;
     }

   if (expr->expr_type != EXPR_CONSTANT)


% gfcx -c a.f90
a.f90:8:3:

    real(x%a) :: y
   1
Error: Unclassifiable statement at (1)