diff options
| author | Tom de Vries <tom@codesourcery.com> | 2016-03-24 11:29:37 +0000 |
|---|---|---|
| committer | Tom de Vries <vries@gcc.gnu.org> | 2016-03-24 11:29:37 +0000 |
| commit | ea064934b695dfdb57b9f339eb1f6357d3eae83a (patch) | |
| tree | 1b7162706e1a61af0394f20f980c3e8fa3d5a7ab | |
| parent | b2a4dd1ddc5eae14687c0b264f77bd4054ea18d7 (diff) | |
| download | gcc-ea064934b695dfdb57b9f339eb1f6357d3eae83a.zip gcc-ea064934b695dfdb57b9f339eb1f6357d3eae83a.tar.gz gcc-ea064934b695dfdb57b9f339eb1f6357d3eae83a.tar.bz2 | |
Add missing initializations in oacc testcases
2016-03-24 Tom de Vries <tom@codesourcery.com>
* gfortran.dg/goacc/data-tree.f95: Add missing initialization.
* gfortran.dg/goacc/kernels-tree.f95: Same.
* gfortran.dg/goacc/parallel-tree.f95: Same.
From-SVN: r234452
| -rw-r--r-- | gcc/testsuite/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/goacc/data-tree.f95 | 2 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/goacc/kernels-tree.f95 | 2 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/goacc/parallel-tree.f95 | 2 |
4 files changed, 9 insertions, 3 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 01c6f2f..be2e416 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,5 +1,11 @@ 2016-03-24 Tom de Vries <tom@codesourcery.com> + * gfortran.dg/goacc/data-tree.f95: Add missing initialization. + * gfortran.dg/goacc/kernels-tree.f95: Same. + * gfortran.dg/goacc/parallel-tree.f95: Same. + +2016-03-24 Tom de Vries <tom@codesourcery.com> + * c-c++-common/goacc/uninit-if-clause.c: New test. * gfortran.dg/goacc/uninit-if-clause.f95: New test. diff --git a/gcc/testsuite/gfortran.dg/goacc/data-tree.f95 b/gcc/testsuite/gfortran.dg/goacc/data-tree.f95 index 23745f3..44efc8a 100644 --- a/gcc/testsuite/gfortran.dg/goacc/data-tree.f95 +++ b/gcc/testsuite/gfortran.dg/goacc/data-tree.f95 @@ -4,7 +4,7 @@ program test implicit none integer :: q, i, j, k, m, n, o, p, r, s, t, u, v, w - logical :: l + logical :: l = .true. !$acc data if(l) copy(i), copyin(j), copyout(k), create(m) & !$acc present(o), pcopy(p), pcopyin(r), pcopyout(s), pcreate(t) & diff --git a/gcc/testsuite/gfortran.dg/goacc/kernels-tree.f95 b/gcc/testsuite/gfortran.dg/goacc/kernels-tree.f95 index fac5b85..4ec66de 100644 --- a/gcc/testsuite/gfortran.dg/goacc/kernels-tree.f95 +++ b/gcc/testsuite/gfortran.dg/goacc/kernels-tree.f95 @@ -4,7 +4,7 @@ program test implicit none integer :: q, i, j, k, m, n, o, p, r, s, t, u, v, w - logical :: l + logical :: l = .true. !$acc kernels if(l) async copy(i), copyin(j), copyout(k), create(m) & !$acc present(o), pcopy(p), pcopyin(r), pcopyout(s), pcreate(t) & diff --git a/gcc/testsuite/gfortran.dg/goacc/parallel-tree.f95 b/gcc/testsuite/gfortran.dg/goacc/parallel-tree.f95 index 9037f6c..5b2e01d 100644 --- a/gcc/testsuite/gfortran.dg/goacc/parallel-tree.f95 +++ b/gcc/testsuite/gfortran.dg/goacc/parallel-tree.f95 @@ -6,7 +6,7 @@ program test implicit none integer :: q, i, j, k, m, n, o, p, r, s, t, u, v, w - logical :: l + logical :: l = .true. !$acc parallel if(l) async num_gangs(i) num_workers(i) vector_length(i) & !$acc reduction(max:q), copy(i), copyin(j), copyout(k), create(m) & |