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