3 ! { dg-additional-options "-cpp" }
17 !$acc parallel copy (a)
25 if (a(i) .ne.N) STOP 1
28 !$acc parallel copy (a)
36 if (a(i) .ne. (N + (N * (-1 * i)))) STOP 2
43 !$acc parallel copy (b)
51 if (b(i) .ne. N + i) STOP 3
58 !$acc parallel copy (a)
66 if (a(i) .ne. 0) STOP 4
73 integer, intent (inout) :: a(N)
85 integer, intent (inout) :: b(M*N)
92 b(j + ((i - 1) * M)) = b(j + ((i - 1) * M)) + 1
100 integer, intent (inout) :: a(N)
112 integer, intent (inout) :: a(N)