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

   1 ! Test of gang-private variables declared on loop directive.
   2
   3 ! { dg-do run }
   4
   5 program main
   6   integer :: x, i, arr(32)
   7
   8   do i = 1, 32
   9      arr(i) = i
  10   end do
  11
  12   !$acc kernels copy(arr)
  13   !$acc loop gang(num:32) private(x)
  14   do i = 1, 32
  15      x = i * 2;
  16      arr(i) = arr(i) + x;
  17   end do
  18   !$acc end kernels
  19
  20   do i = 1, 32
  21      if (arr(i) .ne. i * 3) call abort
  22   end do
  23 end program main