1! PR middle-end/66199 2! { dg-do run } 3! { dg-options "-O2" } 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, c) shared(u, v, w) & 18 !$omp& linear(d) lastprivate(e) 19 do d = a, b 20 u(d) = v(d) + w(d) 21 e = c + d * 5 22 end do 23 a1 = 0 24 a2 = 0 25 b1 = 31 26 b2 = 31 27 d1 = 7 28 d2 = 9 29 !$omp target teams distribute parallel do simd default(none) & 30 !$omp& firstprivate (a1, b1, a2, b2) & 31 !$omp& shared(u, v, w) lastprivate(d1, d2) collapse(2) 32 do d1 = a1, b1 33 do d2 = a2, b2 34 u(d1 * 32 + d2 + 1) = v(d1 * 32 + d2 + 1) + w(d1 * 32 + d2 + 1) 35 end do 36 end do 37 d1 = 7 38 d2 = 9 39 !$omp target teams distribute parallel do simd default(none) & 40 !$omp& firstprivate (a1, b1, a2, b2) shared(u, v, w) collapse(2) 41 do d1 = a1, b1 42 do d2 = a2, b2 43 u(d1 * 32 + d2 + 1) = v(d1 * 32 + d2 + 1) + w(d1 * 32 + d2 + 1) 44 end do 45 end do 46end 47