libgomp/testsuite/libgomp.oacc-fortran/kernels-loop.f95

   1 ! { dg-do run }
   2
   3 program main
   4   implicit none
   5   integer, parameter         :: n = 1024
   6   integer, dimension (0:n-1) :: a, b, c
   7   integer                    :: i, ii
   8
   9   do i = 0, n - 1
  10      a(i) = i * 2
  11   end do
  12
  13   do i = 0, n -1
  14      b(i) = i * 4
  15   end do
  16
  17   !$acc kernels copyin (a(0:n-1), b(0:n-1)) copyout (c(0:n-1))
  18   do ii = 0, n - 1
  19      c(ii) = a(ii) + b(ii)
  20   end do
  21   !$acc end kernels
  22
  23   do i = 0, n - 1
  24      if (c(i) .ne. a(i) + b(i)) STOP 1
  25   end do
  26
  27 end program main