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

   1 ! Test of vector-private variables declared on loop directive. Array type.
   2
   3 ! { dg-do run }
   4
   5 program main
   6   integer :: i, j, k, idx, arr(0:32*32*32), pt(2)
   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, pt)
  18         do k = 0, 31
  19            pt(1) = ieor(i, j * 3)
  20            pt(2) = ior(i, j * 5)
  21            arr(i * 1024 + j * 32 + k) = arr(i * 1024 + j * 32 + k) + pt(1) * k
  22            arr(i * 1024 + j * 32 + k) = arr(i * 1024 + j * 32 + k) + pt(2) * k
  23         end do
  24      end do
  25   end do
  26   !$acc end kernels
  27
  28   do i = 0, 32 - 1
  29      do j = 0, 32 -1
  30         do k = 0, 32 - 1
  31            idx = i * 1024 + j * 32 + k
  32            if (arr(idx) .ne. idx + ieor(i, j * 3) * k + ior(i, j * 5) * k) then
  33               call abort
  34            end if
  35         end do
  36      end do
  37   end do
  38 end program main