https://gcc.gnu.org/bugzilla/show_bug.cgi?id=116577
--- Comment #2 from Tamar Christina <tnfchris at gcc dot gnu.org> ---
---
module type
type a
complex(kind(1.0d0)) j
real(kind(1.0d0)) k
real(kind(1.0d0)) l
end type
contains
subroutine b(c,g)
type(a), dimension(:) :: c
target c
type(a), dimension(:), target :: g
type(a), pointer :: d,h
do i=1,e
h => c(i)
d => g(i)
h%j = d%j
h%l = d%l
h%k = f
end do
end
end
compiled with -mcpu=neoverse-v1 -Ofast reproduces the ICE
