diff options
author | Tom de Vries <tom@codesourcery.com> | 2016-03-23 17:32:05 +0000 |
---|---|---|
committer | Tom de Vries <tom@codesourcery.com> | 2016-03-23 17:32:05 +0000 |
commit | 5860cd72a818085a4512392f79f4de359427245a (patch) | |
tree | a84938821905bb7781221936a36e29a8e977dad5 | |
parent | 9498a1bff56c0f1577d34e4050b22662a08682a1 (diff) |
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.
git-svn-id: https://gcc.gnu.org/svn/gcc/trunk@234432 138bc75d-0d04-0410-961f-82ee72b054a4
-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 | ||||
-rw-r--r-- | libgomp/ChangeLog | 6 | ||||
-rw-r--r-- | libgomp/testsuite/libgomp.oacc-fortran/reduction-2.f90 | 4 | ||||
-rw-r--r-- | libgomp/testsuite/libgomp.oacc-fortran/reduction-3.f90 | 4 |
7 files changed, 24 insertions, 5 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index d0725480b01..7ce1d289e82 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 58cd5e10a5b..cb031c11a34 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 349026350d4..a7c6d81ad4e 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 68c51496866..5037a31a6b4 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 diff --git a/libgomp/ChangeLog b/libgomp/ChangeLog index fe9843468b2..12d78347d67 100644 --- a/libgomp/ChangeLog +++ b/libgomp/ChangeLog @@ -1,3 +1,9 @@ +2016-03-23 Tom de Vries <tom@codesourcery.com> + + * testsuite/libgomp.oacc-fortran/reduction-2.f90: Add missing + initialization of lresult and lvresult. + * testsuite/libgomp.oacc-fortran/reduction-3.f90: Same. + 2016-03-23 James Norris <jnorris@codesourcery.com> Daichi Fukuoka <dc-fukuoka@sgi.com> diff --git a/libgomp/testsuite/libgomp.oacc-fortran/reduction-2.f90 b/libgomp/testsuite/libgomp.oacc-fortran/reduction-2.f90 index 3d99668581f..96955ce71ba 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/reduction-2.f90 +++ b/libgomp/testsuite/libgomp.oacc-fortran/reduction-2.f90 @@ -92,8 +92,8 @@ program reduction_2 if (result.ne.vresult) call abort - result = 1 - vresult = 1 + lresult = .true. + lvresult = .true. ! '.and.' reductions diff --git a/libgomp/testsuite/libgomp.oacc-fortran/reduction-3.f90 b/libgomp/testsuite/libgomp.oacc-fortran/reduction-3.f90 index d0b590e6496..ecf7fbea3b8 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/reduction-3.f90 +++ b/libgomp/testsuite/libgomp.oacc-fortran/reduction-3.f90 @@ -92,8 +92,8 @@ program reduction_3 if (result.ne.vresult) call abort - result = 1 - vresult = 1 + lresult = .true. + lvresult = .true. ! '.and.' reductions |