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)
