1! { dg-additional-options "-O2" }
2! { dg-additional-options "-fdump-tree-ealias-all" }
3
4program main
5  implicit none
6  integer, parameter :: n = 2
7  integer  :: a, b, c, d
8
9  !$acc kernels copyin (a) create (b) copyout (c) copy (d)
10  a = 0
11  b = 0
12  c = 0
13  d = 0
14  !$acc end kernels
15
16end program main
17
18! The xfails occur in light of the new OpenACC data semantics.
19
20! { dg-final { scan-tree-dump-times "clique 1 base 1" 4 "ealias" } }
21! { dg-final { scan-tree-dump-times "clique 1 base 2" 1 "ealias" { xfail *-*-* } } }
22! { dg-final { scan-tree-dump-times "clique 1 base 3" 1 "ealias" { xfail *-*-* } } }
23! { dg-final { scan-tree-dump-times "clique 1 base 4" 1 "ealias" { xfail *-*-* } } }
24! { dg-final { scan-tree-dump-times "clique 1 base 5" 1 "ealias" { xfail *-*-* } } }
25! { dg-final { scan-tree-dump-times "(?n)clique .* base .*" 8 "ealias" } }
26