4 integer, parameter :: Nupper
=100
5 integer :: a
, b(Nupper
), c
, d
, n
6 include "openacc_lib.h"
8 if (acc_get_device_type () .ne
. acc_device_host
) then
17 !$acc parallel firstprivate (a) num_gangs (n)
26 if (b(i
) .ne
. i
+ a
) call abort ()
30 !$acc parallel firstprivate (a) copyout (c)
35 !$acc parallel copyout (d) present (a)
40 if (c
.ne
. 10) call abort ()
41 if (d
.ne
. 5) call abort ()
42 end program firstprivate