From b38ba58bde4cdb7ffd47b56a79d1de819cfe9cea Mon Sep 17 00:00:00 2001 From: Tom de Vries Date: Thu, 17 Mar 2016 14:56:43 +0000 Subject: [PATCH] Add goacc/kernels-alias-{3,4}.f95 2016-03-17 Tom de Vries * gfortran.dg/goacc/kernels-alias-3.f95: New test. * gfortran.dg/goacc/kernels-alias-4.f95: New test. From-SVN: r234292 --- gcc/testsuite/ChangeLog | 5 +++++ .../gfortran.dg/goacc/kernels-alias-3.f95 | 19 ++++++++++++++++++ .../gfortran.dg/goacc/kernels-alias-4.f95 | 20 +++++++++++++++++++ 3 files changed, 44 insertions(+) create mode 100644 gcc/testsuite/gfortran.dg/goacc/kernels-alias-3.f95 create mode 100644 gcc/testsuite/gfortran.dg/goacc/kernels-alias-4.f95 diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index b0bdc245e67..0fb376237c6 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2016-03-17 Tom de Vries + + * gfortran.dg/goacc/kernels-alias-3.f95: New test. + * gfortran.dg/goacc/kernels-alias-4.f95: New test. + 2016-03-17 Richard Biener 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 00000000000..56f3d598d66 --- /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 00000000000..e65253b1844 --- /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" } } -- 2.30.2