From 045d50559b3c9e0a01044084cec13a4fef11c6d9 Mon Sep 17 00:00:00 2001 From: Tom de Vries Date: Tue, 15 Mar 2016 13:01:51 +0000 Subject: [PATCH] Add goacc/kernels-alias{,-2}.f95 2016-03-15 Tom de Vries * gfortran.dg/goacc/kernels-alias-2.f95: New test. * gfortran.dg/goacc/kernels-alias.f95: New test. From-SVN: r234214 --- gcc/testsuite/ChangeLog | 5 ++++ .../gfortran.dg/goacc/kernels-alias-2.f95 | 23 +++++++++++++++++++ .../gfortran.dg/goacc/kernels-alias.f95 | 23 +++++++++++++++++++ 3 files changed, 51 insertions(+) create mode 100644 gcc/testsuite/gfortran.dg/goacc/kernels-alias-2.f95 create mode 100644 gcc/testsuite/gfortran.dg/goacc/kernels-alias.f95 diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index e9b0a9aeed0..0c37e8579fb 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2016-03-15 Tom de Vries + + * gfortran.dg/goacc/kernels-alias-2.f95: New test. + * gfortran.dg/goacc/kernels-alias.f95: New test. + 2016-03-14 Martin Sebor PR c++/53792 diff --git a/gcc/testsuite/gfortran.dg/goacc/kernels-alias-2.f95 b/gcc/testsuite/gfortran.dg/goacc/kernels-alias-2.f95 new file mode 100644 index 00000000000..7e348dde2bd --- /dev/null +++ b/gcc/testsuite/gfortran.dg/goacc/kernels-alias-2.f95 @@ -0,0 +1,23 @@ +! { dg-additional-options "-O2" } +! { dg-additional-options "-fdump-tree-ealias-all" } + +program main + implicit none + integer, parameter :: n = 2 + integer :: a, b, c, d + + !$acc kernels copyin (a) create (b) copyout (c) copy (d) + a = 0 + b = 0 + c = 0 + d = 0 + !$acc end kernels + +end program main + +! { dg-final { scan-tree-dump-times "clique 1 base 1" 4 "ealias" } } +! { dg-final { scan-tree-dump-times "clique 1 base 2" 1 "ealias" } } +! { dg-final { scan-tree-dump-times "clique 1 base 3" 1 "ealias" } } +! { dg-final { scan-tree-dump-times "clique 1 base 4" 1 "ealias" } } +! { dg-final { scan-tree-dump-times "clique 1 base 5" 1 "ealias" } } +! { dg-final { scan-tree-dump-times "(?n)clique .* base .*" 8 "ealias" } } diff --git a/gcc/testsuite/gfortran.dg/goacc/kernels-alias.f95 b/gcc/testsuite/gfortran.dg/goacc/kernels-alias.f95 new file mode 100644 index 00000000000..8d6ccb338b9 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/goacc/kernels-alias.f95 @@ -0,0 +1,23 @@ +! { dg-additional-options "-O2" } +! { dg-additional-options "-fdump-tree-ealias-all" } + +program main + implicit none + integer, parameter :: n = 2 + integer, dimension (0:n-1) :: a, b, c, d + + !$acc kernels copyin (a) create (b) copyout (c) copy (d) + a(0) = 0 + b(0) = 0 + c(0) = 0 + d(0) = 0 + !$acc end kernels + +end program main + +! { dg-final { scan-tree-dump-times "clique 1 base 1" 4 "ealias" } } +! { dg-final { scan-tree-dump-times "clique 1 base 2" 1 "ealias" } } +! { dg-final { scan-tree-dump-times "clique 1 base 3" 1 "ealias" } } +! { dg-final { scan-tree-dump-times "clique 1 base 4" 1 "ealias" } } +! { dg-final { scan-tree-dump-times "clique 1 base 5" 1 "ealias" } } +! { dg-final { scan-tree-dump-times "(?n)clique .* base .*" 8 "ealias" } } -- 2.30.2