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