1! PR fortran/65597
2! { dg-do run }
3
4  integer :: i, a(151)
5  a(:) = 0
6  !$omp do simd
7    do i = 1, 151, 31
8      a(i) = a(i) + 1
9    end do
10  !$omp do simd linear (i: 31)
11    do i = 1, 151, 31
12      a(i) = a(i) + 1
13    end do
14  do i = 1, 151
15    if (mod (i, 31) .eq. 1) then
16      if (a(i) .ne. 2) STOP 1
17    else
18      if (a(i) .ne. 0) STOP 2
19    end if
20  end do
21end
22