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


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

! { 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" } }