gcc/testsuite/gfortran.dg/goacc/kernels-alias-4.f95

   1 ! { dg-additional-options "-O2" }
   2 ! { dg-additional-options "-fdump-tree-ealias-all" }
   3
   4 program 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
  16 end 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" } }