3 ! Test data located inside common blocks. This test does not exercise
4 ! ACC DECLARE. All data clauses are explicit.
7 integer, parameter :: n
= 100
16 common /BLOCK
/ x
, y
, z
, j
19 if (abs(x(i
) - i
- z
) .ge
. 0.0001) stop 1
21 end subroutine validate
29 common /BLOCK
/ x
, y
, z
, j
31 !$acc parallel loop pcopy(/BLOCK/)
35 !$acc end parallel loop
44 common /BLOCK
/ a
, b
, c
, j
46 ! Test copyout, pcopy, device
48 !$acc data copyout(a, c)
52 !$acc update device(c)
54 !$acc parallel loop pcopy(a)
58 !$acc end parallel loop
68 ! Test pcopy without copyout
75 ! Test create, delete, host, copyout, copyin
77 !$acc enter data create(b)
79 !$acc parallel loop pcopy(b)
83 !$acc end parallel loop
87 !$acc parallel loop pcopy(b) copyout(a) copyin(c)
91 !$acc end parallel loop
93 !$acc exit data delete(b)
104 !$acc parallel loop copy(/BLOCK/)
108 !$acc end parallel loop
112 ! Test pcopyin, pcopyout FIXME
115 !$acc data copyin(b, c) copyout(a)
117 !$acc parallel loop pcopyin(b, c) pcopyout(a)
121 !$acc end parallel loop
127 ! Test reduction, private
131 !$acc parallel private(i) copy(j)
132 !$acc loop reduction(+:j)
140 ! Test firstprivate, copy
145 !$acc parallel loop firstprivate(c) copyout(a)
149 !$acc end parallel loop