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).