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) call abort
17    else
18      if (a(i) .ne. 0) call abort
19    end if
20  end do
21end
22