1! { dg-additional-options "-O2" } 2! { dg-additional-options "-fdump-tree-ealias-all" } 3 4program main 5 implicit none 6 integer, parameter :: n = 2 7 integer, target, dimension (0:n-1) :: a 8 integer, pointer :: ptr(:) 9 ptr => a 10 11 !$acc kernels pcopyin (a, ptr(0:2)) 12 a(0) = 0 13 ptr(0) = 1 14 !$acc end kernels 15 16end program main 17 18! Only the omp_data_i related loads should be annotated with cliques. 19! { dg-final { scan-tree-dump-times "clique 1 base 1" 4 "ealias" } } 20! { dg-final { scan-tree-dump-times "(?n)clique 1 base 0" 5 "ealias" } } 21