https://gcc.gnu.org/bugzilla/show_bug.cgi?id=113808

--- Comment #4 from Richard Biener <rguenth at gcc dot gnu.org> ---
Reduced a bit, w/o collapse:

program main
  integer :: n, i,k
  n = 11
  do i = 1, n,2
    !$omp simd lastprivate(k)
    do k = 1, i + 41
      if (k > 11 + 41 .or. k < 1) error stop
    end do
  end do
  if (k /= 53) then
    print *, k, 53
    error stop
  endif
end

Reply via email to