https://gcc.gnu.org/bugzilla/show_bug.cgi?id=84218
--- Comment #3 from G. Steinmetz <gs...@t-online.de> --- Some working variants/extentions with substring "x(i:i)" : $ cat z2.f90 program p integer :: i character(3) :: x data (x(i:i), i=1,3) /'a', 'b', 'c'/ print *, x end $ gfortran-8-20180211 z2.f90 -static-libgfortran $ a.out abc $ cat z3.f90 program p integer :: i character(3) :: x data (x(i:i), i=1,3) /3*'a'/ print *, x end $ gfortran-8-20180211 z3.f90 -static-libgfortran $ a.out aaa $ cat z4.f90 program p character(3) :: x data x(1:1), x(2:2), x(3:3) /'a', 'b', 'c'/ print *, x end $ gfortran-8-20180211 z4.f90 -static-libgfortran $ a.out abc