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, dimension (0:n-1) :: a, b, c, d 8 9 !$acc kernels copyin (a) create (b) copyout (c) copy (d) 10 a(0) = 0 11 b(0) = 0 12 c(0) = 0 13 d(0) = 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