libgomp/testsuite/libgomp.fortran/pr66199-2.f90

   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, 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
  46 end