4 integer, parameter :: N
= 64
5 real, allocatable
:: a(:), b(:), c(:)
12 !$acc parallel async (0)
19 !$acc parallel async (1)
26 !$acc parallel wait (0, 1)
34 if (c(i
) .ne
. 2.0) call abort
37 !$acc kernels async (0)
44 !$acc kernels async (1)
51 !$acc kernels wait (0, 1)
59 if (c(i
) .ne
. 2.0) call abort