From da7aeb13d7465deab63bf920a3f435c18049f18d Mon Sep 17 00:00:00 2001 From: vries Date: Thu, 24 Mar 2016 11:29:37 +0000 Subject: [PATCH] Add missing initializations in oacc testcases 2016-03-24 Tom de Vries * gfortran.dg/goacc/data-tree.f95: Add missing initialization. * gfortran.dg/goacc/kernels-tree.f95: Same. * gfortran.dg/goacc/parallel-tree.f95: Same. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@234452 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/testsuite/ChangeLog | 6 ++++++ gcc/testsuite/gfortran.dg/goacc/data-tree.f95 | 2 +- gcc/testsuite/gfortran.dg/goacc/kernels-tree.f95 | 2 +- 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 01c6f2f10c99..be2e416e53de 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,9 @@ +2016-03-24 Tom de Vries + + * 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 * c-c++-common/goacc/uninit-if-clause.c: New test. diff --git a/gcc/testsuite/gfortran.dg/goacc/data-tree.f95 b/gcc/testsuite/gfortran.dg/goacc/data-tree.f95 index 23745f333d2e..44efc8a670b6 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 fac5b85217f7..4ec66de346d8 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 9037f6c895f2..5b2e01d48783 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) & -- 2.47.3