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


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

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