diff options
-rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
-rw-r--r-- | gcc/testsuite/gfortran.dg/goacc/kernels-alias-3.f95 | 19 | ||||
-rw-r--r-- | gcc/testsuite/gfortran.dg/goacc/kernels-alias-4.f95 | 20 |
3 files changed, 44 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index b0bdc24..0fb3762 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2016-03-17 Tom de Vries <tom@codesourcery.com> + + * gfortran.dg/goacc/kernels-alias-3.f95: New test. + * gfortran.dg/goacc/kernels-alias-4.f95: New test. + 2016-03-17 Richard Biener <rguenther@suse.de> PR debug/70271 diff --git a/gcc/testsuite/gfortran.dg/goacc/kernels-alias-3.f95 b/gcc/testsuite/gfortran.dg/goacc/kernels-alias-3.f95 new file mode 100644 index 0000000..56f3d59 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/goacc/kernels-alias-3.f95 @@ -0,0 +1,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 .* base .*" 2 "ealias" } } diff --git a/gcc/testsuite/gfortran.dg/goacc/kernels-alias-4.f95 b/gcc/testsuite/gfortran.dg/goacc/kernels-alias-4.f95 new file mode 100644 index 0000000..e65253b --- /dev/null +++ b/gcc/testsuite/gfortran.dg/goacc/kernels-alias-4.f95 @@ -0,0 +1,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" 3 "ealias" } } +! { dg-final { scan-tree-dump-times "(?n)clique .* base .*" 3 "ealias" } } |