2 ! { dg-additional-options "-fcray-pointer" }
10 pointer (ptr
, pointee
)
11 !$acc declare device_resident (pointee)
12 !$acc declare device_resident (ptr)
13 !$acc data copy (pointee) ! { dg-error "Cray pointee" }
15 !$acc data deviceptr (pointee) ! { dg-error "Cray pointee" }
17 !$acc parallel private (pointee) ! { dg-error "Cray pointee" }
19 !$acc host_data use_device (pointee) ! { dg-error "Cray pointee" }
21 !$acc parallel loop reduction(+:pointee) ! { dg-error "Cray pointee" }
24 !$acc end parallel loop
27 ! Subarrays are not implemented yet
28 !$acc cache (pointee) ! TODO: This must fail, as in openacc-1_0-branch
30 !$acc end parallel loop
31 !$acc update device (pointee) ! { dg-error "Cray pointee" }
32 !$acc update host (pointee) ! { dg-error "Cray pointee" }
33 !$acc update self (pointee) ! { dg-error "Cray pointee" }
36 !$acc data deviceptr (ptr) ! { dg-error "Cray pointer" }
38 !$acc parallel private (ptr)
40 !$acc host_data use_device (ptr) ! { dg-error "Cray pointer" }
42 !$acc parallel loop reduction(+:ptr) ! { dg-error "Cray pointer" }
45 !$acc end parallel loop
48 !$acc cache (ptr) ! TODO: This must fail, as in openacc-1_0-branch
50 !$acc end parallel loop
51 !$acc update device (ptr)
52 !$acc update host (ptr)
53 !$acc update self (ptr)
56 ! { dg-prune-output "unimplemented" }