1! { dg-do run }
2
3program 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
27end program main
28