2 ! { dg-options "-ftree-parallelize-loops=32" }
6 integer, parameter :: n = 1024
7 integer, dimension (0:n-1) :: a, b, c
10 !$acc enter data create (a(0:n-1), b(0:n-1), c(0:n-1))
12 !$acc kernels present (a(0:n-1))
18 !$acc kernels present (b(0:n-1))
24 !$acc kernels present (a(0:n-1), b(0:n-1), c(0:n-1))
30 !$acc exit data copyout (a(0:n-1), b(0:n-1), c(0:n-1))
33 if (c(i) .ne. a(i) + b(i)) call abort