libgomp/testsuite/libgomp.oacc-fortran/kernels-private-vars-loop-vector-1.f90

   1 ! Test of vector-private variables declared on loop directive.
   2
   3 ! { dg-do run }
   4
   5 program main
   6   integer :: x, i, j, k, idx, arr(0:32*32*32)
   7
   8   do i = 0, 32*32*32-1
   9      arr(i) = i
  10   end do
  11
  12   !$acc kernels copy(arr)
  13   !$acc loop gang(num:32)
  14   do i = 0, 31
  15      !$acc loop worker(num:8)
  16      do j = 0, 31
  17         !$acc loop vector(length:32) private(x)
  18         do k = 0, 31
  19            x = ieor(i, j * 3)
  20            arr(i * 1024 + j * 32 + k) = arr(i * 1024 + j * 32 + k) + x * k
  21         end do
  22         !$acc loop vector(length:32) private(x)
  23         do k = 0, 31
  24            x = ior(i, j * 5)
  25            arr(i * 1024 + j * 32 + k) = arr(i * 1024 + j * 32 + k) + x * k
  26         end do
  27      end do
  28   end do
  29   !$acc end kernels
  30
  31   do i = 0, 32 - 1
  32      do j = 0, 32 -1
  33         do k = 0, 32 - 1
  34            idx = i * 1024 + j * 32 + k
  35            if (arr(idx) .ne. idx + ieor(i, j * 3) * k + ior(i, j * 5) * k) then
  36               call abort
  37            end if
  38         end do
  39      end do
  40   end do
  41 end program main