4 integer, parameter :: n
= 100
12 !$acc parallel loop gang (static:*) num_gangs (10)
16 !$acc end parallel loop
18 call test (a
, b
, 0, n
)
20 !$acc parallel loop gang (static:1) num_gangs (10)
24 !$acc end parallel loop
26 call test (a
, b
, 1, n
)
28 !$acc parallel loop gang (static:2) num_gangs (10)
32 !$acc end parallel loop
34 call test (a
, b
, 2, n
)
36 !$acc parallel loop gang (static:5) num_gangs (10)
40 !$acc end parallel loop
42 call test (a
, b
, 5, n
)
44 !$acc parallel loop gang (static:20) num_gangs (10)
48 !$acc end parallel loop
50 call test (a
, b
, 20, n
)
53 !$acc parallel loop gang (static:0+x) num_gangs (10)
57 !$acc end parallel loop
59 call test (a
, b
, 5, n
)
62 !$acc parallel loop gang (static:x) num_gangs (10)
66 !$acc end parallel loop
68 call test (a
, b
, 10, n
)
71 subroutine test (a
, b
, sarg
, n
)
73 integer a (n
), b(n
), sarg
77 if (a(i
) .ne
. b(i
) + sarg
) STOP 1