https://gcc.gnu.org/bugzilla/show_bug.cgi?id=83953
kargl at gcc dot gnu.org changed:
What |Removed |Added
----------------------------------------------------------------------------
CC| |kargl at gcc dot gnu.org
--- Comment #3 from kargl at gcc dot gnu.org ---
(In reply to G. Steinmetz from comment #2)
> Simplification :
>
>
> $ cat z1.f90
> program p
> type t
> integer :: n = 1
> integer, allocatable :: u(:)
> real :: v(3, 3)
> end type
> type(t) :: z
> real :: x(3) = [1.0, 2.0, 3.0]
> allocate (z%u(3))
> z%u = [3, 1, 2]
> forall (j = 1:3)
> z%v(j, z%n) = x(z%u(j))
> end forall
> end
>
>
This seems to work now.
