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.
---
gcc/testsuite/c-c++-common/goacc/kernels-default.c | 2 +-
gcc/testsuite/gfortran.dg/goacc/private-3.f95 | 1 +
gcc/testsuite/gfortran.dg/goacc/routine-5.f90 | 4 ++++
libgomp/testsuite/libgomp.oacc-fortran/reduction-2.f90 | 4 ++--
libgomp/testsuite/libgomp.oacc-fortran/reduction-3.f90 | 4 ++--
5 files changed, 10 insertions(+), 5 deletions(-)
@@ -4,7 +4,7 @@
void
foo (void)
{
- unsigned int i;
+ unsigned int i = 0;
#pragma acc kernels
{
i++;
@@ -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
@@ -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
@@ -92,8 +92,8 @@ program reduction_2
if (result.ne.vresult) call abort
- result = 1
- vresult = 1
+ lresult = .true.
+ lvresult = .true.
! '.and.' reductions
@@ -92,8 +92,8 @@ program reduction_3
if (result.ne.vresult) call abort
- result = 1
- vresult = 1
+ lresult = .true.
+ lvresult = .true.
! '.and.' reductions