diff options
| author | Tom de Vries <tom@codesourcery.com> | 2016-03-23 17:32:05 +0000 |
|---|---|---|
| committer | Tom de Vries <vries@gcc.gnu.org> | 2016-03-23 17:32:05 +0000 |
| commit | d79ee5242bfcf2479658bf5450369d6856cc4904 (patch) | |
| tree | a84938821905bb7781221936a36e29a8e977dad5 /gcc | |
| parent | 9bf63f8cb21f9b0729601f7732d5b2052f6b242b (diff) | |
| download | gcc-d79ee5242bfcf2479658bf5450369d6856cc4904.zip gcc-d79ee5242bfcf2479658bf5450369d6856cc4904.tar.gz gcc-d79ee5242bfcf2479658bf5450369d6856cc4904.tar.bz2 | |
Add missing initializations in oacc testcases
2016-03-23 Tom de Vries <tom@codesourcery.com>
* c-c++-common/goacc/kernels-default.c (foo): Add missing
initialization.
* gfortran.dg/goacc/private-3.f95 (test): Same.
* gfortran.dg/goacc/routine-5.f90 (gang, worker, vector, seq): Add
missing use param.
* testsuite/libgomp.oacc-fortran/reduction-2.f90: Add missing
initialization of lresult and lvresult.
* testsuite/libgomp.oacc-fortran/reduction-3.f90: Same.
From-SVN: r234432
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 8 | ||||
| -rw-r--r-- | gcc/testsuite/c-c++-common/goacc/kernels-default.c | 2 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/goacc/private-3.f95 | 1 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/goacc/routine-5.f90 | 4 |
4 files changed, 14 insertions, 1 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index d072548..7ce1d28 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,11 @@ +2016-03-23 Tom de Vries <tom@codesourcery.com> + + * c-c++-common/goacc/kernels-default.c (foo): Add missing + initialization. + * gfortran.dg/goacc/private-3.f95 (test): Same. + * gfortran.dg/goacc/routine-5.f90 (gang, worker, vector, seq): Add + missing use param. + 2016-03-23 Kyrylo Tkachov <kyrylo.tkachov@arm.com> * lib/target-supports.exp: Remove v7ve entry from loop diff --git a/gcc/testsuite/c-c++-common/goacc/kernels-default.c b/gcc/testsuite/c-c++-common/goacc/kernels-default.c index 58cd5e1..cb031c1 100644 --- a/gcc/testsuite/c-c++-common/goacc/kernels-default.c +++ b/gcc/testsuite/c-c++-common/goacc/kernels-default.c @@ -4,7 +4,7 @@ void foo (void) { - unsigned int i; + unsigned int i = 0; #pragma acc kernels { i++; diff --git a/gcc/testsuite/gfortran.dg/goacc/private-3.f95 b/gcc/testsuite/gfortran.dg/goacc/private-3.f95 index 3490263..a7c6d81 100644 --- a/gcc/testsuite/gfortran.dg/goacc/private-3.f95 +++ b/gcc/testsuite/gfortran.dg/goacc/private-3.f95 @@ -14,6 +14,7 @@ program test ! !$acc end parallel !$acc parallel private (k) + k = 0 !$acc loop reduction (+:k) do i = 1, n k = k + 1 diff --git a/gcc/testsuite/gfortran.dg/goacc/routine-5.f90 b/gcc/testsuite/gfortran.dg/goacc/routine-5.f90 index 68c5149..5037a31 100644 --- a/gcc/testsuite/gfortran.dg/goacc/routine-5.f90 +++ b/gcc/testsuite/gfortran.dg/goacc/routine-5.f90 @@ -5,6 +5,7 @@ module param end module param subroutine gang (a) + use param !$acc routine gang integer, intent (inout) :: a(N) integer :: i @@ -31,6 +32,7 @@ subroutine gang (a) end subroutine gang subroutine worker (a) + use param !$acc routine worker integer, intent (inout) :: a(N) integer :: i @@ -57,6 +59,7 @@ subroutine worker (a) end subroutine worker subroutine vector (a) + use param !$acc routine vector integer, intent (inout) :: a(N) integer :: i @@ -83,6 +86,7 @@ subroutine vector (a) end subroutine vector subroutine seq (a) + use param !$acc routine seq integer, intent (inout) :: a(N) integer :: i |