[Bug fortran/93340] [8/9/10 Regression] ICE in check_constant_initializer, at fortran/trans-decl.c:5450

[anlauf at gcc dot gnu.org]

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

--- Comment #4 from anlauf at gcc dot gnu.org ---
AFAICS the code in comment#0 is non-standard:

% gfc-trunk foo.f90 -std=f2018
z1.f90:2:20:

    2 |    character c(2) /'a', 'b'(1:1)/
      |                    1
Error: GNU Extension: Old-style initialization at (1)
z1.f90:3:20:

    3 |    character d(2) /'a', 'bc'(1:1)/
      |                    1
Error: GNU Extension: Old-style initialization at (1)