https://gcc.gnu.org/bugzilla/show_bug.cgi?id=68855
--- Comment #5 from Andrew Pinski <pinskia at gcc dot gnu.org> ---
Note a good testcase for this is (with `-O3 -ffast-math -fopenmp-simd`):
```
subroutine foo(a,n)
complex (kind(1d0)) :: a(*)
integer :: i,n
!$OMP SIMD
do i=1,n
a(i)=(a(i)+(6d0,1d0))
enddo
end subroutine foo
```
(from PR 115563).
