[Bug fortran/84218] ICE in free_expr0, at fortran/expr.c:451

[gscfq@t-online.de]

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

--- Comment #3 from G. Steinmetz <gscfq@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