diff options
| author | Tom de Vries <tom@codesourcery.com> | 2016-03-15 13:01:51 +0000 |
|---|---|---|
| committer | Tom de Vries <vries@gcc.gnu.org> | 2016-03-15 13:01:51 +0000 |
| commit | 045d50559b3c9e0a01044084cec13a4fef11c6d9 (patch) | |
| tree | 2f5379e084b8775ac08f49a5cb4d421d3e73efb8 | |
| parent | 2aaeea194be58f1ac62c5a3ef6528ed2ae8e92ec (diff) | |
| download | gcc-045d50559b3c9e0a01044084cec13a4fef11c6d9.zip gcc-045d50559b3c9e0a01044084cec13a4fef11c6d9.tar.gz gcc-045d50559b3c9e0a01044084cec13a4fef11c6d9.tar.bz2 | |
Add goacc/kernels-alias{,-2}.f95
2016-03-15 Tom de Vries <tom@codesourcery.com>
* gfortran.dg/goacc/kernels-alias-2.f95: New test.
* gfortran.dg/goacc/kernels-alias.f95: New test.
From-SVN: r234214
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/goacc/kernels-alias-2.f95 | 23 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/goacc/kernels-alias.f95 | 23 |
3 files changed, 51 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index e9b0a9a..0c37e85 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2016-03-15 Tom de Vries <tom@codesourcery.com> + + * gfortran.dg/goacc/kernels-alias-2.f95: New test. + * gfortran.dg/goacc/kernels-alias.f95: New test. + 2016-03-14 Martin Sebor <msebor@redhat.com> 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 0000000..7e348dd --- /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 0000000..8d6ccb3 --- /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" } } |