https://gcc.gnu.org/bugzilla/show_bug.cgi?id=84135
--- Comment #1 from G. Steinmetz <gs...@t-online.de> ---
These analogous cases compile and work :
$ cat z2.f90
program p
integer :: i
integer :: x(3)[2,*]
data (x(i:i+2:i+1), i=1,2) /1,2,3/
print *, x
end
$ cat z3.f90
program p
integer :: i
integer :: x(3)
data (x(i:i+2:i+1), i=1,2) /1,2,3/
print *, x
end
$ gfortran-8-20180128 z2.f90 -static-libgfortran -fcoarray=single
$ a.out
1 3 2
$ gfortran-8-20180128 z3.f90 -static-libgfortran
$ a.out
1 3 2
$
