[Bug fortran/83874] [6/7/8 Regression] ICE initializing character array from derived type

[anlauf at gmx dot de]

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

--- Comment #1 from Harald Anlauf <anlauf at gmx dot de> ---
1719                      else if (init->expr_type == EXPR_ARRAY)
1720                        {
1721                          if (init->ts.u.cl)
1722                            {
1723                              const gfc_expr *length =
init->ts.u.cl->length;
1724                              if (length->expr_type != EXPR_CONSTANT)

Length is null here, so dereferencing fails.