blob: 415eb96344a52025de8f287da22924a8d2e1d571 [file] [log] [blame]
! { dg-additional-options "-O2" }
! { dg-additional-options "-fdump-tree-ealias-all" }
program main
implicit none
integer, parameter :: n = 2
integer, target, dimension (0:n-1) :: a
integer, pointer :: ptr(:)
ptr => a
!$acc kernels pcopyin (a, ptr(0:2))
a(0) = 0
ptr(0) = 1
!$acc end kernels
end program main
! Only the omp_data_i related loads should be annotated with cliques.
! { dg-final { scan-tree-dump-times "clique 1 base 1" 4 "ealias" } }
! { dg-final { scan-tree-dump-times "(?n)clique 1 base 0" 5 "ealias" } }