2 ! { dg-additional-options "-cpp" }
4 function is_mapped (n
) result (rc
)
7 integer, intent (in
) :: n
16 rc
= acc_is_present (n
, sizeof (n
))
19 end function is_mapped
28 !$acc data copyin (i, j)
29 if (is_mapped (i
) .eqv
. .FALSE
.) stop 1
30 if (is_mapped (j
) .eqv
. .FALSE
.) stop 2
32 if (i
.ne
. -1 .or
. j
.ne
. -2) stop 3
37 if (i
.ne
. 2 .or
. j
.ne
. 1) stop 4
40 if (i
.ne
. 2 .or
. j
.ne
. 1) stop 5
45 !$acc data copyout (i, j)
46 if (is_mapped (i
) .eqv
. .FALSE
.) stop 6
47 if (is_mapped (j
) .eqv
. .FALSE
.) stop 7
49 if (i
.ne
. -1 .or
. j
.ne
. -2) stop 8
54 if (i
.ne
. 2 .or
. j
.ne
. 1) stop 9
56 !$acc parallel present (i, j)
62 if (i
.ne
. 4 .or
. j
.ne
. 2) stop 10
67 !$acc data create (i, j)
68 if (is_mapped (i
) .eqv
. .FALSE
.) stop 11
69 if (is_mapped (j
) .eqv
. .FALSE
.) stop 12
71 if (i
.ne
. -1 .or
. j
.ne
. -2) stop 13
76 if (i
.ne
. 2 .or
. j
.ne
. 1) stop 14
79 if (i
.ne
. 2 .or
. j
.ne
. 1) stop 15
84 !$acc data present_or_copyin (i, j)
85 if (is_mapped (i
) .eqv
. .FALSE
.) stop 16
86 if (is_mapped (j
) .eqv
. .FALSE
.) stop 17
88 if (i
.ne
. -1 .or
. j
.ne
. -2) stop 18
93 if (i
.ne
. 2 .or
. j
.ne
. 1) stop 19
96 if (i
.ne
. 2 .or
. j
.ne
. 1) stop 20
101 !$acc data present_or_copyout (i, j)
102 if (is_mapped (i
) .eqv
. .FALSE
.) stop 21
103 if (is_mapped (j
) .eqv
. .FALSE
.) stop 22
105 if (i
.ne
. -1 .or
. j
.ne
. -2) stop 23
110 if (i
.ne
. 2 .or
. j
.ne
. 1) stop 24
112 !$acc parallel present (i, j)
118 if (i
.ne
. 4 .or
. j
.ne
. 2) stop 25
123 !$acc data present_or_copy (i, j)
124 if (is_mapped (i
) .eqv
. .FALSE
.) stop 26
125 if (is_mapped (j
) .eqv
. .FALSE
.) stop 27
127 if (i
.ne
. -1 .or
. j
.ne
. -2) stop 28
132 if (i
.ne
. 2 .or
. j
.ne
. 1) stop 29
136 if (i
.ne
. 2 .or
. j
.ne
. 1) stop 30
138 if (i
.ne
. -1 .or
. j
.ne
. -2) stop 31
144 !$acc data present_or_create (i, j)
145 if (is_mapped (i
) .eqv
. .FALSE
.) stop 32
146 if (is_mapped (j
) .eqv
. .FALSE
.) stop 33
151 if (i
.ne
. 2 .or
. j
.ne
. 1) stop 34
154 if (i
.ne
. 2 .or
. j
.ne
. 1) stop 35
159 !$acc data copyin (i, j)
160 !$acc data present (i, j)
161 if (is_mapped (i
) .eqv
. .FALSE
.) stop 36
162 if (is_mapped (j
) .eqv
. .FALSE
.) stop 37
164 if (i
.ne
. -1 .or
. j
.ne
. -2) stop 38
169 if (i
.ne
. 2 .or
. j
.ne
. 1) stop 39
173 if (i
.ne
. 2 .or
. j
.ne
. 1) stop 40
178 !$acc data copyin (i, j)
179 !$acc data present (i, j)
180 if (is_mapped (i
) .eqv
. .FALSE
.) stop 41
181 if (is_mapped (j
) .eqv
. .FALSE
.) stop 42
183 if (i
.ne
. -1 .or
. j
.ne
. -2) stop 43
188 if (i
.ne
. 2 .or
. j
.ne
. 1) stop 44
192 if (i
.ne
. 2 .or
. j
.ne
. 1) stop 45
199 if (is_mapped (i
) .eqv
. .TRUE
.) stop 46
200 if (is_mapped (j
) .eqv
. .TRUE
.) stop 47
202 if (i
.ne
. -1 .or
. j
.ne
. -2) stop 48
207 if (i
.ne
. 2 .or
. j
.ne
. 1) stop 49
210 if (i
.ne
. 2 .or
. j
.ne
. 1) stop 50