blob: 07dc8d6c641973af7fb9aa011a3b186f93e49ce8 [file] [log] [blame]
! { dg-additional-options "-O2" }
! { dg-additional-options "-fdump-tree-ealias-all" }
program main
implicit none
integer, target :: a
integer, pointer :: ptr
ptr => a
!$acc kernels pcopyin (a, ptr)
a = 0
ptr = 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" 2 "ealias" } }
! { dg-final { scan-tree-dump-times "(?n)clique 1 base 0" 3 "ealias" } }