1! PR middle-end/66199 2! { dg-do run } 3! { dg-options "-O2 -fopenmp" } 4 5 integer :: u(1024), v(1024), w(1024), a, b, c, d, e, a1, b1, a2, b2, d1, d2 6 a = 1 7 b = 1024 8 d = 75 9 !$omp target teams distribute parallel do simd default(none) & 10 !$omp& firstprivate (a, b) shared(u, v, w) 11 do d = a, b 12 u(d) = v(d) + w(d) 13 end do 14 c = 17 15 d = 75 16 !$omp target teams distribute parallel do simd default(none) & 17 !$omp& firstprivate (a, b) shared(u, v, w) & 18 !$omp& linear(d) linear(c:5) lastprivate(e) 19 do d = a, b 20 u(d) = v(d) + w(d) 21 c = c + 5 22 e = c 23 end do 24 a1 = 0 25 a2 = 0 26 b1 = 31 27 b2 = 31 28 d1 = 7 29 d2 = 9 30 !$omp target teams distribute parallel do simd default(none) & 31 !$omp& firstprivate (a1, b1, a2, b2) & 32 !$omp& shared(u, v, w) lastprivate(d1, d2) collapse(2) 33 do d1 = a1, b1 34 do d2 = a2, b2 35 u(d1 * 32 + d2 + 1) = v(d1 * 32 + d2 + 1) + w(d1 * 32 + d2 + 1) 36 end do 37 end do 38 d1 = 7 39 d2 = 9 40 !$omp target teams distribute parallel do simd default(none) & 41 !$omp& firstprivate (a1, b1, a2, b2) shared(u, v, w) collapse(2) 42 do d1 = a1, b1 43 do d2 = a2, b2 44 u(d1 * 32 + d2 + 1) = v(d1 * 32 + d2 + 1) + w(d1 * 32 + d2 + 1) 45 end do 46 end do 47end 48