Retro68/gcc/libgomp/testsuite/libgomp.fortran/pr65597.f90

! PR fortran/65597
! { dg-do run }

  integer :: i, a(151)
  a(:) = 0
  !$omp do simd
    do i = 1, 151, 31
      a(i) = a(i) + 1
    end do
  !$omp do simd linear (i: 31)
    do i = 1, 151, 31
      a(i) = a(i) + 1
    end do
  do i = 1, 151
    if (mod (i, 31) .eq. 1) then
      if (a(i) .ne. 2) STOP 1
    else
      if (a(i) .ne. 0) STOP 2
    end if
  end do
end