2 ! { dg-skip-if "" { *-*-* } { "-DACC_MEM_SHARED=1" } }
17 !$acc declare link (c)
19 if (acc_is_present (b
) .neqv
. .false
.) call abort
20 if (acc_is_present (c
) .neqv
. .false
.) call abort
25 !$acc parallel copy (a) copyin (b)
30 if (a
.ne
. 5.0) call abort
32 if (acc_is_present (b
) .neqv
. .false
.) call abort
36 !$acc parallel copy (a) create (b)
41 if (a
.ne
. 4.0) call abort
43 if (acc_is_present (b
) .neqv
. .false
.) call abort
47 !$acc parallel copy (a) copy (b)
52 if (a
.ne
. 4.0) call abort
53 if (b
.ne
. 4.0) call abort
55 if (acc_is_present (b
) .neqv
. .false
.) call abort
59 !$acc parallel copy (a) copy (b) copy (c)
65 if (a
.ne
. 4.0) call abort
67 if (acc_is_present (b
) .neqv
. .false
.) call abort