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
This commit is contained in:
parent
9bf63f8cb2
commit
d79ee5242b
7 changed files with 24 additions and 5 deletions
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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>
|
||||
|
||||
|
|
|
@ -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
|
||||
|
||||
|
|
Loading…
Add table
Reference in a new issue