[Bug fortran/84135] [8 Regression] ICE in gfc_trans_array_cobounds, at fortran/trans-array.c:6033

[dmalcolm at gcc dot gnu.org]

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

--- Comment #3 from David Malcolm <dmalcolm at gcc dot gnu.org> ---
Segfault reading through a NULL value for ubound here:

6032          ubound = GFC_TYPE_ARRAY_UBOUND (type, dim);
6033          if (as->upper[dim] && !INTEGER_CST_P (ubound))

Program received signal SIGSEGV, Segmentation fault.
0x000000000093befa in gfc_trans_array_cobounds (type=<array_type
0x7ffff1a6d498>, pblock=0x7fffffffdad0, sym=0x2baaea0)
    at ../../src/gcc/fortran/trans-array.c:6033
6033          if (as->upper[dim] && !INTEGER_CST_P (ubound))
(gdb) p as
$1 = (gfc_array_spec *) 0x2ba9af0
(gdb) p ubound
$2 = <tree 0x0>