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) 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
  47 end