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

Reply via email to