[Bug fortran/71935] [4.9/5/6/7 Regression] ICE is_c_interoperable(): gfc_simplify_expr failed

[kargl at gcc dot gnu.org]

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

--- Comment #2 from kargl at gcc dot gnu.org ---
Index: check.c
===================================================================
--- check.c     (revision 238385)
+++ check.c     (working copy)
@@ -4278,7 +4278,7 @@ is_c_interoperable (gfc_expr *expr, cons
       }

     if (expr->ts.u.cl && expr->ts.u.cl->length
-       && !gfc_simplify_expr (expr, 0))
+       && !gfc_simplify_expr (expr->ts.u.cl->length, 0))
       gfc_internal_error ("is_c_interoperable(): gfc_simplify_expr failed");

     if (!c_loc && expr->ts.u.cl


Weird that an array reference out-of-bounds is only an error.