2 ! { dg-skip-if "" { *-*-* } { "*" } { "-DACC_MEM_SHARED=0" } }
7 integer, parameter :: N
= 8
8 integer, parameter :: NDIV2
= N
/ 2
17 !$acc enter data copyin (a, b)
19 !$acc parallel present (a, b)
25 !$acc update host (a, b)
28 if (a(i
) .ne
. 3.0) STOP 1
29 if (b(i
) .ne
. 3.0) STOP 2
32 if (acc_is_present (a
) .neqv
. .TRUE
.) STOP 3
33 if (acc_is_present (b
) .neqv
. .TRUE
.) STOP 4
40 !$acc update device (a, b)
42 !$acc parallel present (a, b)
48 !$acc update host (a, b)
51 if (a(i
) .ne
. 5.0) STOP 5
52 if (b(i
) .ne
. 5.0) STOP 6
55 if (acc_is_present (a
) .neqv
. .TRUE
.) STOP 7
56 if (acc_is_present (b
) .neqv
. .TRUE
.) STOP 8
58 !$acc parallel present (a, b)
64 !$acc update host (a, b)
67 if (a(i
) .ne
. 5.0) STOP 9
68 if (b(i
) .ne
. 5.0) STOP 10
71 if (acc_is_present (a
) .neqv
. .TRUE
.) STOP 11
72 if (acc_is_present (b
) .neqv
. .TRUE
.) STOP 12
79 !$acc update device (a, b)
85 !$acc parallel present (a, b)
91 !$acc update host (a, b)
94 if (a(i
) .ne
. 6.0) STOP 13
95 if (b(i
) .ne
. 6.0) STOP 14
98 if (acc_is_present (a
) .neqv
. .TRUE
.) STOP 15
99 if (acc_is_present (b
) .neqv
. .TRUE
.) STOP 16
106 !$acc update device (a, b)
112 !$acc parallel present (a, b)
118 !$acc update host (a, b)
121 if (a(i
) .ne
. 7.0) STOP 17
122 if (b(i
) .ne
. 7.0) STOP 18
129 !$acc update device (a)
131 !$acc parallel present (a, b)
137 !$acc update host (a, b)
140 if (a(i
) .ne
. 9.0) STOP 19
141 if (b(i
) .ne
. 9.0) STOP 20
144 if (acc_is_present (a
) .neqv
. .TRUE
.) STOP 21
145 if (acc_is_present (b
) .neqv
. .TRUE
.) STOP 22
151 !$acc update device (a)
157 !$acc update device (a(1:NDIV2))
159 !$acc parallel present (a, b)
165 !$acc update host (a, b)
168 if (a(i
) .ne
. 6.0) STOP 23
169 if (b(i
) .ne
. 6.0) STOP 24
173 if (a(i
) .ne
. 5.0) STOP 25
174 if (b(i
) .ne
. 5.0) STOP 26
177 if (acc_is_present (a
) .neqv
. .TRUE
.) STOP 27
178 if (acc_is_present (b
) .neqv
. .TRUE
.) STOP 28
184 !$acc update device (a(1:4))
186 !$acc parallel present (a)
192 !$acc update host (a(5:N))
195 if (a(i
) .ne
. 0.0) STOP 29
199 if (a(i
) .ne
. 6.0) STOP 30
202 !$acc update host (a(1:4))
205 if (a(i
) .ne
. 1.0) STOP 31
209 if (a(i
) .ne
. 6.0) STOP 32
217 !$acc update device (a(3:6))
219 !$acc parallel present (a(1:N))
225 !$acc update host (a(3:6))
228 if (a(i
) .ne
. 1.0) STOP 33
232 if (a(i
) .ne
. 10.0) STOP 34
236 if (a(i
) .ne
. 6.0) STOP 35
239 !$acc exit data delete (a, b)