Skip to content

R
riscv-gcc-1
Commit ccc8282b by Nathan Sidwell Committed by Nathan Sidwell
Options

nvptx.c (nvptx_goacc_validate_dims): Add checking. 

	gcc/
	* config/nvptx/nvptx.c (nvptx_goacc_validate_dims): Add checking.

	libgomp/
	* testsuite/libgomp.oacc-fortran/reduction-1.f90: Fix dimensions
	and reduction copy.
	* testsuite/libgomp.oacc-fortran/reduction-2.f90: Likewise.
	* testsuite/libgomp.oacc-fortran/reduction-3.f90: Likewise.
	* testsuite/libgomp.oacc-fortran/reduction-4.f90: Likewise.
	* testsuite/libgomp.oacc-fortran/reduction-6.f90: Likewise.
	* testsuite/libgomp.oacc-c-c++-common/par-reduction-1.c: Likewise.
	* testsuite/libgomp.oacc-c-c++-common/reduction-3.c: Likewise.
	* testsuite/libgomp.oacc-c-c++-common/collapse-2.c: Likewise.
	* testsuite/libgomp.oacc-c-c++-common/par-reduction-2.c: Likewise.
	* testsuite/libgomp.oacc-c-c++-common/reduction-4.c: Likewise.
	* testsuite/libgomp.oacc-c-c++-common/reduction-initial-1.c: Likewise.
	* testsuite/libgomp.oacc-c-c++-common/reduction-1.c: Likewise.
	* testsuite/libgomp.oacc-c-c++-common/reduction-5.c: Likewise.
	* testsuite/libgomp.oacc-c-c++-common/reduction-2.c: Likewise.
	* testsuite/libgomp.oacc-c-c++-common/parallel-dims.c: New.

From-SVN: r229780
parent a3afde42
Showing with 116 additions and 59 deletions
gcc/ChangeLog
2015-11-04 Nathan Sidwell <nathan@codesourcery.com> 2015-11-04 Nathan Sidwell <nathan@codesourcery.com>
* config/nvptx/nvptx.c (nvptx_goacc_validate_dims): Add checking.
2015-11-04 Nathan Sidwell <nathan@codesourcery.com>
Cesar Philippidis <cesar@codesourcery.com> Cesar Philippidis <cesar@codesourcery.com>
* config/nvptx/nvptx.c: Include gimple headers. * config/nvptx/nvptx.c: Include gimple headers.
gcc/config/nvptx/nvptx.c
...@@ -3472,8 +3472,29 @@ nvptx_goacc_validate_dims (tree ARG_UNUSED (decl), int *ARG_UNUSED (dims), ...@@ -3472,8 +3472,29 @@ nvptx_goacc_validate_dims (tree ARG_UNUSED (decl), int *ARG_UNUSED (dims),
{ {
bool changed = false; bool changed = false;
/* TODO: Leave dimensions unaltered. Reductions need /* The vector size must be 32, unless this is a SEQ routine. */
porting before filtering dimensions makes sense. */ if (fn_level <= GOMP_DIM_VECTOR
&& dims[GOMP_DIM_VECTOR] != PTX_VECTOR_LENGTH)
{
if (dims[GOMP_DIM_VECTOR] >= 0 && fn_level < 0)
warning_at (DECL_SOURCE_LOCATION (decl), 0,
dims[GOMP_DIM_VECTOR]
? "using vector_length (%d), ignoring %d"
: "using vector_length (%d), ignoring runtime setting",
PTX_VECTOR_LENGTH, dims[GOMP_DIM_VECTOR]);
dims[GOMP_DIM_VECTOR] = PTX_VECTOR_LENGTH;
changed = true;
}
/* Check the num workers is not too large. */
if (dims[GOMP_DIM_WORKER] > PTX_WORKER_LENGTH)
{
warning_at (DECL_SOURCE_LOCATION (decl), 0,
"using num_workers (%d), ignoring %d",
PTX_WORKER_LENGTH, dims[GOMP_DIM_WORKER]);
dims[GOMP_DIM_WORKER] = PTX_WORKER_LENGTH;
changed = true;
}
return changed; return changed;
} }
......
libgomp/ChangeLog
2015-11-04 Nathan Sidwell <nathan@codesourcery.com> 2015-11-04 Nathan Sidwell <nathan@codesourcery.com>
* testsuite/libgomp.oacc-fortran/reduction-1.f90: Fix dimensions
and reduction copy.
* testsuite/libgomp.oacc-fortran/reduction-2.f90: Likewise.
* testsuite/libgomp.oacc-fortran/reduction-3.f90: Likewise.
* testsuite/libgomp.oacc-fortran/reduction-4.f90: Likewise.
* testsuite/libgomp.oacc-fortran/reduction-6.f90: Likewise.
* testsuite/libgomp.oacc-c-c++-common/par-reduction-1.c: Likewise.
* testsuite/libgomp.oacc-c-c++-common/reduction-3.c: Likewise.
* testsuite/libgomp.oacc-c-c++-common/collapse-2.c: Likewise.
* testsuite/libgomp.oacc-c-c++-common/par-reduction-2.c: Likewise.
* testsuite/libgomp.oacc-c-c++-common/reduction-4.c: Likewise.
* testsuite/libgomp.oacc-c-c++-common/reduction-initial-1.c: Likewise.
* testsuite/libgomp.oacc-c-c++-common/reduction-1.c: Likewise.
* testsuite/libgomp.oacc-c-c++-common/reduction-5.c: Likewise.
* testsuite/libgomp.oacc-c-c++-common/reduction-2.c: Likewise.
* testsuite/libgomp.oacc-c-c++-common/parallel-dims.c: New.
2015-11-04 Nathan Sidwell <nathan@codesourcery.com>
* libgomp.oacc-c-c++-common/loop-red-g-1.c: New. * libgomp.oacc-c-c++-common/loop-red-g-1.c: New.
* libgomp.oacc-c-c++-common/loop-red-gwv-1.c: New. * libgomp.oacc-c-c++-common/loop-red-gwv-1.c: New.
* libgomp.oacc-c-c++-common/loop-red-v-1.c: New. * libgomp.oacc-c-c++-common/loop-red-v-1.c: New.
......
libgomp/testsuite/libgomp.oacc-c-c++-common/collapse-2.c
...@@ -8,7 +8,7 @@ main (void) ...@@ -8,7 +8,7 @@ main (void)
int i, j, k, l = 0, f = 0, x = 0; int i, j, k, l = 0, f = 0, x = 0;
int m1 = 4, m2 = -5, m3 = 17; int m1 = 4, m2 = -5, m3 = 17;
#pragma acc parallel #pragma acc parallel copy(l)
#pragma acc loop collapse(3) reduction(+:l) #pragma acc loop collapse(3) reduction(+:l)
for (i = -2; i < m1; i++) for (i = -2; i < m1; i++)
for (j = m2; j < -2; j++) for (j = m2; j < -2; j++)
......
libgomp/testsuite/libgomp.oacc-c-c++-common/par-reduction-1.c
...@@ -10,8 +10,7 @@ main (int argc, char *argv[]) ...@@ -10,8 +10,7 @@ main (int argc, char *argv[])
#else #else
# define GANGS 256 # define GANGS 256
#endif #endif
#pragma acc parallel num_gangs(GANGS) num_workers(1) vector_length(1) \ #pragma acc parallel num_gangs(GANGS) copy(res2)
copy(res2)
{ {
#pragma acc atomic #pragma acc atomic
res2 += 5; res2 += 5;
...@@ -28,8 +27,7 @@ main (int argc, char *argv[]) ...@@ -28,8 +27,7 @@ main (int argc, char *argv[])
#else #else
# define GANGS 8 # define GANGS 8
#endif #endif
#pragma acc parallel num_gangs(GANGS) num_workers(1) vector_length(1) \ #pragma acc parallel num_gangs(GANGS) copy(res2)
copy(res2)
{ {
#pragma acc atomic #pragma acc atomic
res2 *= 5; res2 *= 5;
......
libgomp/testsuite/libgomp.oacc-c-c++-common/par-reduction-2.c
...@@ -11,8 +11,7 @@ main (int argc, char *argv[]) ...@@ -11,8 +11,7 @@ main (int argc, char *argv[])
#else #else
# define GANGS 256 # define GANGS 256
#endif #endif
#pragma acc parallel num_gangs(GANGS) num_workers(1) vector_length(1) \ #pragma acc parallel num_gangs(GANGS) copy(res2) async(1)
copy(res2) async(1)
{ {
#pragma acc atomic #pragma acc atomic
res2 += 5; res2 += 5;
...@@ -31,8 +30,7 @@ main (int argc, char *argv[]) ...@@ -31,8 +30,7 @@ main (int argc, char *argv[])
#else #else
# define GANGS 8 # define GANGS 8
#endif #endif
#pragma acc parallel num_gangs(GANGS) num_workers(1) vector_length(1) \ #pragma acc parallel num_gangs(GANGS) copy(res2) async(1)
copy(res2) async(1)
{ {
#pragma acc atomic #pragma acc atomic
res2 *= 5; res2 *= 5;
......
libgomp/testsuite/libgomp.oacc-c-c++-common/parallel-dims.c 0 → 100644
/* { dg-do run { target openacc_nvidia_accel_selected } } */
/* Worker and vector size checks. Picked an outrageously large
value. */
int main ()
{
#pragma acc parallel num_workers (2<<20) /* { dg-error "using num_workers" } */
{
}
#pragma acc parallel vector_length (2<<20) /* { dg-error "using vector_length" } */
{
}
return 0;
}
libgomp/testsuite/libgomp.oacc-c-c++-common/reduction-1.c
...@@ -13,7 +13,7 @@ ...@@ -13,7 +13,7 @@
{ \ { \
type res, vres; \ type res, vres; \
res = (init); \ res = (init); \
DO_PRAGMA (acc parallel vector_length (vl))\ DO_PRAGMA (acc parallel vector_length (vl) copy(res)) \
DO_PRAGMA (acc loop reduction (op:res))\ DO_PRAGMA (acc loop reduction (op:res))\
for (i = 0; i < n; i++) \ for (i = 0; i < n; i++) \
res = res op (b); \ res = res op (b); \
...@@ -63,7 +63,7 @@ test_reductions_bool (void) ...@@ -63,7 +63,7 @@ test_reductions_bool (void)
{ \ { \
type res, vres; \ type res, vres; \
res = (init); \ res = (init); \
DO_PRAGMA (acc parallel vector_length (vl))\ DO_PRAGMA (acc parallel vector_length (vl) copy(res))\
DO_PRAGMA (acc loop reduction (op:res))\ DO_PRAGMA (acc loop reduction (op:res))\
for (i = 0; i < n; i++) \ for (i = 0; i < n; i++) \
res = op (res, (b)); \ res = op (res, (b)); \
......
libgomp/testsuite/libgomp.oacc-c-c++-common/reduction-2.c
...@@ -23,7 +23,7 @@ main(void) ...@@ -23,7 +23,7 @@ main(void)
vresult = 0; vresult = 0;
/* '+' reductions. */ /* '+' reductions. */
#pragma acc parallel vector_length (vl) #pragma acc parallel vector_length (vl) copy(result)
#pragma acc loop reduction (+:result) #pragma acc loop reduction (+:result)
for (i = 0; i < n; i++) for (i = 0; i < n; i++)
result += array[i]; result += array[i];
...@@ -39,7 +39,7 @@ main(void) ...@@ -39,7 +39,7 @@ main(void)
vresult = 0; vresult = 0;
/* '*' reductions. */ /* '*' reductions. */
#pragma acc parallel vector_length (vl) #pragma acc parallel vector_length (vl) copy(result)
#pragma acc loop reduction (*:result) #pragma acc loop reduction (*:result)
for (i = 0; i < n; i++) for (i = 0; i < n; i++)
result *= array[i]; result *= array[i];
...@@ -91,7 +91,7 @@ main(void) ...@@ -91,7 +91,7 @@ main(void)
lvresult = false; lvresult = false;
/* '&&' reductions. */ /* '&&' reductions. */
#pragma acc parallel vector_length (vl) #pragma acc parallel vector_length (vl) copy(lresult)
#pragma acc loop reduction (&&:lresult) #pragma acc loop reduction (&&:lresult)
for (i = 0; i < n; i++) for (i = 0; i < n; i++)
lresult = lresult && (result > array[i]); lresult = lresult && (result > array[i]);
...@@ -110,7 +110,7 @@ main(void) ...@@ -110,7 +110,7 @@ main(void)
lvresult = false; lvresult = false;
/* '||' reductions. */ /* '||' reductions. */
#pragma acc parallel vector_length (vl) #pragma acc parallel vector_length (vl) copy(lresult)
#pragma acc loop reduction (||:lresult) #pragma acc loop reduction (||:lresult)
for (i = 0; i < n; i++) for (i = 0; i < n; i++)
lresult = lresult || (result > array[i]); lresult = lresult || (result > array[i]);
......
libgomp/testsuite/libgomp.oacc-c-c++-common/reduction-3.c
...@@ -23,7 +23,7 @@ main(void) ...@@ -23,7 +23,7 @@ main(void)
vresult = 0; vresult = 0;
/* '+' reductions. */ /* '+' reductions. */
#pragma acc parallel vector_length (vl) #pragma acc parallel vector_length (vl) copy(result)
#pragma acc loop reduction (+:result) #pragma acc loop reduction (+:result)
for (i = 0; i < n; i++) for (i = 0; i < n; i++)
result += array[i]; result += array[i];
...@@ -39,7 +39,7 @@ main(void) ...@@ -39,7 +39,7 @@ main(void)
vresult = 0; vresult = 0;
/* '*' reductions. */ /* '*' reductions. */
#pragma acc parallel vector_length (vl) #pragma acc parallel vector_length (vl) copy(result)
#pragma acc loop reduction (*:result) #pragma acc loop reduction (*:result)
for (i = 0; i < n; i++) for (i = 0; i < n; i++)
result *= array[i]; result *= array[i];
...@@ -91,7 +91,7 @@ main(void) ...@@ -91,7 +91,7 @@ main(void)
lvresult = false; lvresult = false;
/* '&&' reductions. */ /* '&&' reductions. */
#pragma acc parallel vector_length (vl) #pragma acc parallel vector_length (vl) copy(lresult)
#pragma acc loop reduction (&&:lresult) #pragma acc loop reduction (&&:lresult)
for (i = 0; i < n; i++) for (i = 0; i < n; i++)
lresult = lresult && (result > array[i]); lresult = lresult && (result > array[i]);
...@@ -110,7 +110,7 @@ main(void) ...@@ -110,7 +110,7 @@ main(void)
lvresult = false; lvresult = false;
/* '||' reductions. */ /* '||' reductions. */
#pragma acc parallel vector_length (vl) #pragma acc parallel vector_length (vl) copy(lresult)
#pragma acc loop reduction (||:lresult) #pragma acc loop reduction (||:lresult)
for (i = 0; i < n; i++) for (i = 0; i < n; i++)
lresult = lresult || (result > array[i]); lresult = lresult || (result > array[i]);
......
libgomp/testsuite/libgomp.oacc-c-c++-common/reduction-4.c
...@@ -24,7 +24,7 @@ main(void) ...@@ -24,7 +24,7 @@ main(void)
vresult = 0; vresult = 0;
/* '+' reductions. */ /* '+' reductions. */
#pragma acc parallel vector_length (vl) #pragma acc parallel vector_length (vl) copy(result)
#pragma acc loop reduction (+:result) #pragma acc loop reduction (+:result)
for (i = 0; i < n; i++) for (i = 0; i < n; i++)
result += array[i]; result += array[i];
...@@ -94,7 +94,7 @@ main(void) ...@@ -94,7 +94,7 @@ main(void)
lvresult = false; lvresult = false;
/* '&&' reductions. */ /* '&&' reductions. */
#pragma acc parallel vector_length (vl) #pragma acc parallel vector_length (vl) copy(lresult)
#pragma acc loop reduction (&&:lresult) #pragma acc loop reduction (&&:lresult)
for (i = 0; i < n; i++) for (i = 0; i < n; i++)
lresult = lresult && (creal(result) > creal(array[i])); lresult = lresult && (creal(result) > creal(array[i]));
...@@ -113,7 +113,7 @@ main(void) ...@@ -113,7 +113,7 @@ main(void)
lvresult = false; lvresult = false;
/* '||' reductions. */ /* '||' reductions. */
#pragma acc parallel vector_length (vl) #pragma acc parallel vector_length (vl) copy(lresult)
#pragma acc loop reduction (||:lresult) #pragma acc loop reduction (||:lresult)
for (i = 0; i < n; i++) for (i = 0; i < n; i++)
lresult = lresult || (creal(result) > creal(array[i])); lresult = lresult || (creal(result) > creal(array[i]));
......
libgomp/testsuite/libgomp.oacc-c-c++-common/reduction-5.c
...@@ -8,7 +8,7 @@ main (void) ...@@ -8,7 +8,7 @@ main (void)
int n = 100; int n = 100;
int i; int i;
#pragma acc parallel vector_length (32) #pragma acc parallel vector_length (32) copy(s1,s2)
#pragma acc loop reduction (+:s1, s2) #pragma acc loop reduction (+:s1, s2)
for (i = 0; i < n; i++) for (i = 0; i < n; i++)
{ {
......
libgomp/testsuite/libgomp.oacc-c-c++-common/reduction-initial-1.c
...@@ -4,13 +4,13 @@ int ...@@ -4,13 +4,13 @@ int
main(void) main(void)
{ {
#define I 5 #define I 5
#define N 11 #define N 32
#define A 8 #define A 8
int a = A; int a = A;
int s = I; int s = I;
#pragma acc parallel vector_length(N) #pragma acc parallel vector_length(N) copy(s)
{ {
int i; int i;
#pragma acc loop reduction(+:s) #pragma acc loop reduction(+:s)
......
libgomp/testsuite/libgomp.oacc-fortran/reduction-1.f90
...@@ -5,7 +5,7 @@ ...@@ -5,7 +5,7 @@
program reduction_1 program reduction_1
implicit none implicit none
integer, parameter :: n = 10, vl = 2 integer, parameter :: n = 10, vl = 32
integer :: i, vresult, result integer :: i, vresult, result
logical :: lresult, lvresult logical :: lresult, lvresult
integer, dimension (n) :: array integer, dimension (n) :: array
...@@ -19,7 +19,7 @@ program reduction_1 ...@@ -19,7 +19,7 @@ program reduction_1
! '+' reductions ! '+' reductions
!$acc parallel vector_length(vl) num_gangs(1) !$acc parallel vector_length(vl) num_gangs(1) copy(result)
!$acc loop reduction(+:result) !$acc loop reduction(+:result)
do i = 1, n do i = 1, n
result = result + array(i) result = result + array(i)
...@@ -38,7 +38,7 @@ program reduction_1 ...@@ -38,7 +38,7 @@ program reduction_1
! '*' reductions ! '*' reductions
!$acc parallel vector_length(vl) num_gangs(1) !$acc parallel vector_length(vl) num_gangs(1) copy(result)
!$acc loop reduction(*:result) !$acc loop reduction(*:result)
do i = 1, n do i = 1, n
result = result * array(i) result = result * array(i)
...@@ -57,7 +57,7 @@ program reduction_1 ...@@ -57,7 +57,7 @@ program reduction_1
! 'max' reductions ! 'max' reductions
!$acc parallel vector_length(vl) num_gangs(1) !$acc parallel vector_length(vl) num_gangs(1) copy(result)
!$acc loop reduction(max:result) !$acc loop reduction(max:result)
do i = 1, n do i = 1, n
result = max (result, array(i)) result = max (result, array(i))
...@@ -76,7 +76,7 @@ program reduction_1 ...@@ -76,7 +76,7 @@ program reduction_1
! 'min' reductions ! 'min' reductions
!$acc parallel vector_length(vl) num_gangs(1) !$acc parallel vector_length(vl) num_gangs(1) copy(result)
!$acc loop reduction(min:result) !$acc loop reduction(min:result)
do i = 1, n do i = 1, n
result = min (result, array(i)) result = min (result, array(i))
...@@ -95,7 +95,7 @@ program reduction_1 ...@@ -95,7 +95,7 @@ program reduction_1
! 'iand' reductions ! 'iand' reductions
!$acc parallel vector_length(vl) num_gangs(1) !$acc parallel vector_length(vl) num_gangs(1) copy(result)
!$acc loop reduction(iand:result) !$acc loop reduction(iand:result)
do i = 1, n do i = 1, n
result = iand (result, array(i)) result = iand (result, array(i))
...@@ -114,7 +114,7 @@ program reduction_1 ...@@ -114,7 +114,7 @@ program reduction_1
! 'ior' reductions ! 'ior' reductions
!$acc parallel vector_length(vl) num_gangs(1) !$acc parallel vector_length(vl) num_gangs(1) copy(result)
!$acc loop reduction(ior:result) !$acc loop reduction(ior:result)
do i = 1, n do i = 1, n
result = ior (result, array(i)) result = ior (result, array(i))
...@@ -133,7 +133,7 @@ program reduction_1 ...@@ -133,7 +133,7 @@ program reduction_1
! 'ieor' reductions ! 'ieor' reductions
!$acc parallel vector_length(vl) num_gangs(1) !$acc parallel vector_length(vl) num_gangs(1) copy(result)
!$acc loop reduction(ieor:result) !$acc loop reduction(ieor:result)
do i = 1, n do i = 1, n
result = ieor (result, array(i)) result = ieor (result, array(i))
...@@ -152,7 +152,7 @@ program reduction_1 ...@@ -152,7 +152,7 @@ program reduction_1
! '.and.' reductions ! '.and.' reductions
!$acc parallel vector_length(vl) num_gangs(1) !$acc parallel vector_length(vl) num_gangs(1) copy(lresult)
!$acc loop reduction(.and.:lresult) !$acc loop reduction(.and.:lresult)
do i = 1, n do i = 1, n
lresult = lresult .and. (array(i) .ge. 5) lresult = lresult .and. (array(i) .ge. 5)
...@@ -171,7 +171,7 @@ program reduction_1 ...@@ -171,7 +171,7 @@ program reduction_1
! '.or.' reductions ! '.or.' reductions
!$acc parallel vector_length(vl) num_gangs(1) !$acc parallel vector_length(vl) num_gangs(1) copy(lresult)
!$acc loop reduction(.or.:lresult) !$acc loop reduction(.or.:lresult)
do i = 1, n do i = 1, n
lresult = lresult .or. (array(i) .ge. 5) lresult = lresult .or. (array(i) .ge. 5)
...@@ -190,7 +190,7 @@ program reduction_1 ...@@ -190,7 +190,7 @@ program reduction_1
! '.eqv.' reductions ! '.eqv.' reductions
!$acc parallel vector_length(vl) num_gangs(1) !$acc parallel vector_length(vl) num_gangs(1) copy(lresult)
!$acc loop reduction(.eqv.:lresult) !$acc loop reduction(.eqv.:lresult)
do i = 1, n do i = 1, n
lresult = lresult .eqv. (array(i) .ge. 5) lresult = lresult .eqv. (array(i) .ge. 5)
...@@ -209,7 +209,7 @@ program reduction_1 ...@@ -209,7 +209,7 @@ program reduction_1
! '.neqv.' reductions ! '.neqv.' reductions
!$acc parallel vector_length(vl) num_gangs(1) !$acc parallel vector_length(vl) num_gangs(1) copy(lresult)
!$acc loop reduction(.neqv.:lresult) !$acc loop reduction(.neqv.:lresult)
do i = 1, n do i = 1, n
lresult = lresult .neqv. (array(i) .ge. 5) lresult = lresult .neqv. (array(i) .ge. 5)
......
libgomp/testsuite/libgomp.oacc-fortran/reduction-2.f90
...@@ -5,7 +5,7 @@ ...@@ -5,7 +5,7 @@
program reduction_2 program reduction_2
implicit none implicit none
integer, parameter :: n = 10, vl = 2 integer, parameter :: n = 10, vl = 32
integer :: i integer :: i
real, parameter :: e = .001 real, parameter :: e = .001
real :: vresult, result real :: vresult, result
...@@ -21,7 +21,7 @@ program reduction_2 ...@@ -21,7 +21,7 @@ program reduction_2
! '+' reductions ! '+' reductions
!$acc parallel vector_length(vl) num_gangs(1) !$acc parallel vector_length(vl) num_gangs(1) copy(result)
!$acc loop reduction(+:result) !$acc loop reduction(+:result)
do i = 1, n do i = 1, n
result = result + array(i) result = result + array(i)
...@@ -40,7 +40,7 @@ program reduction_2 ...@@ -40,7 +40,7 @@ program reduction_2
! '*' reductions ! '*' reductions
!$acc parallel vector_length(vl) num_gangs(1) !$acc parallel vector_length(vl) num_gangs(1) copy(result)
!$acc loop reduction(*:result) !$acc loop reduction(*:result)
do i = 1, n do i = 1, n
result = result * array(i) result = result * array(i)
...@@ -59,7 +59,7 @@ program reduction_2 ...@@ -59,7 +59,7 @@ program reduction_2
! 'max' reductions ! 'max' reductions
!$acc parallel vector_length(vl) num_gangs(1) !$acc parallel vector_length(vl) num_gangs(1) copy(result)
!$acc loop reduction(max:result) !$acc loop reduction(max:result)
do i = 1, n do i = 1, n
result = max (result, array(i)) result = max (result, array(i))
...@@ -78,7 +78,7 @@ program reduction_2 ...@@ -78,7 +78,7 @@ program reduction_2
! 'min' reductions ! 'min' reductions
!$acc parallel vector_length(vl) num_gangs(1) !$acc parallel vector_length(vl) num_gangs(1) copy(result)
!$acc loop reduction(min:result) !$acc loop reduction(min:result)
do i = 1, n do i = 1, n
result = min (result, array(i)) result = min (result, array(i))
...@@ -97,7 +97,7 @@ program reduction_2 ...@@ -97,7 +97,7 @@ program reduction_2
! '.and.' reductions ! '.and.' reductions
!$acc parallel vector_length(vl) num_gangs(1) !$acc parallel vector_length(vl) num_gangs(1) copy(lresult)
!$acc loop reduction(.and.:lresult) !$acc loop reduction(.and.:lresult)
do i = 1, n do i = 1, n
lresult = lresult .and. (array(i) .ge. 5) lresult = lresult .and. (array(i) .ge. 5)
...@@ -116,7 +116,7 @@ program reduction_2 ...@@ -116,7 +116,7 @@ program reduction_2
! '.or.' reductions ! '.or.' reductions
!$acc parallel vector_length(vl) num_gangs(1) !$acc parallel vector_length(vl) num_gangs(1) copy(lresult)
!$acc loop reduction(.or.:lresult) !$acc loop reduction(.or.:lresult)
do i = 1, n do i = 1, n
lresult = lresult .or. (array(i) .ge. 5) lresult = lresult .or. (array(i) .ge. 5)
...@@ -135,7 +135,7 @@ program reduction_2 ...@@ -135,7 +135,7 @@ program reduction_2
! '.eqv.' reductions ! '.eqv.' reductions
!$acc parallel vector_length(vl) num_gangs(1) !$acc parallel vector_length(vl) num_gangs(1) copy(lresult)
!$acc loop reduction(.eqv.:lresult) !$acc loop reduction(.eqv.:lresult)
do i = 1, n do i = 1, n
lresult = lresult .eqv. (array(i) .ge. 5) lresult = lresult .eqv. (array(i) .ge. 5)
...@@ -154,7 +154,7 @@ program reduction_2 ...@@ -154,7 +154,7 @@ program reduction_2
! '.neqv.' reductions ! '.neqv.' reductions
!$acc parallel vector_length(vl) num_gangs(1) !$acc parallel vector_length(vl) num_gangs(1) copy(lresult)
!$acc loop reduction(.neqv.:lresult) !$acc loop reduction(.neqv.:lresult)
do i = 1, n do i = 1, n
lresult = lresult .neqv. (array(i) .ge. 5) lresult = lresult .neqv. (array(i) .ge. 5)
......
libgomp/testsuite/libgomp.oacc-fortran/reduction-3.f90
...@@ -5,7 +5,7 @@ ...@@ -5,7 +5,7 @@
program reduction_3 program reduction_3
implicit none implicit none
integer, parameter :: n = 10, vl = 2 integer, parameter :: n = 10, vl = 32
integer :: i integer :: i
double precision, parameter :: e = .001 double precision, parameter :: e = .001
double precision :: vresult, result double precision :: vresult, result
...@@ -21,7 +21,7 @@ program reduction_3 ...@@ -21,7 +21,7 @@ program reduction_3
! '+' reductions ! '+' reductions
!$acc parallel vector_length(vl) num_gangs(1) !$acc parallel vector_length(vl) num_gangs(1) copy(result)
!$acc loop reduction(+:result) !$acc loop reduction(+:result)
do i = 1, n do i = 1, n
result = result + array(i) result = result + array(i)
...@@ -40,7 +40,7 @@ program reduction_3 ...@@ -40,7 +40,7 @@ program reduction_3
! '*' reductions ! '*' reductions
!$acc parallel vector_length(vl) num_gangs(1) !$acc parallel vector_length(vl) num_gangs(1) copy(result)
!$acc loop reduction(*:result) !$acc loop reduction(*:result)
do i = 1, n do i = 1, n
result = result * array(i) result = result * array(i)
...@@ -59,7 +59,7 @@ program reduction_3 ...@@ -59,7 +59,7 @@ program reduction_3
! 'max' reductions ! 'max' reductions
!$acc parallel vector_length(vl) num_gangs(1) !$acc parallel vector_length(vl) num_gangs(1) copy(result)
!$acc loop reduction(max:result) !$acc loop reduction(max:result)
do i = 1, n do i = 1, n
result = max (result, array(i)) result = max (result, array(i))
...@@ -78,7 +78,7 @@ program reduction_3 ...@@ -78,7 +78,7 @@ program reduction_3
! 'min' reductions ! 'min' reductions
!$acc parallel vector_length(vl) num_gangs(1) !$acc parallel vector_length(vl) num_gangs(1) copy(result)
!$acc loop reduction(min:result) !$acc loop reduction(min:result)
do i = 1, n do i = 1, n
result = min (result, array(i)) result = min (result, array(i))
...@@ -97,7 +97,7 @@ program reduction_3 ...@@ -97,7 +97,7 @@ program reduction_3
! '.and.' reductions ! '.and.' reductions
!$acc parallel vector_length(vl) num_gangs(1) !$acc parallel vector_length(vl) num_gangs(1) copy(lresult)
!$acc loop reduction(.and.:lresult) !$acc loop reduction(.and.:lresult)
do i = 1, n do i = 1, n
lresult = lresult .and. (array(i) .ge. 5) lresult = lresult .and. (array(i) .ge. 5)
...@@ -116,7 +116,7 @@ program reduction_3 ...@@ -116,7 +116,7 @@ program reduction_3
! '.or.' reductions ! '.or.' reductions
!$acc parallel vector_length(vl) num_gangs(1) !$acc parallel vector_length(vl) num_gangs(1) copy(lresult)
!$acc loop reduction(.or.:lresult) !$acc loop reduction(.or.:lresult)
do i = 1, n do i = 1, n
lresult = lresult .or. (array(i) .ge. 5) lresult = lresult .or. (array(i) .ge. 5)
...@@ -135,7 +135,7 @@ program reduction_3 ...@@ -135,7 +135,7 @@ program reduction_3
! '.eqv.' reductions ! '.eqv.' reductions
!$acc parallel vector_length(vl) num_gangs(1) !$acc parallel vector_length(vl) num_gangs(1) copy(lresult)
!$acc loop reduction(.eqv.:lresult) !$acc loop reduction(.eqv.:lresult)
do i = 1, n do i = 1, n
lresult = lresult .eqv. (array(i) .ge. 5) lresult = lresult .eqv. (array(i) .ge. 5)
...@@ -154,7 +154,7 @@ program reduction_3 ...@@ -154,7 +154,7 @@ program reduction_3
! '.neqv.' reductions ! '.neqv.' reductions
!$acc parallel vector_length(vl) num_gangs(1) !$acc parallel vector_length(vl) num_gangs(1) copy(lresult)
!$acc loop reduction(.neqv.:lresult) !$acc loop reduction(.neqv.:lresult)
do i = 1, n do i = 1, n
lresult = lresult .neqv. (array(i) .ge. 5) lresult = lresult .neqv. (array(i) .ge. 5)
......
libgomp/testsuite/libgomp.oacc-fortran/reduction-4.f90
...@@ -19,7 +19,7 @@ program reduction_4 ...@@ -19,7 +19,7 @@ program reduction_4
! '+' reductions ! '+' reductions
!$acc parallel vector_length(vl) num_gangs(1) !$acc parallel vector_length(vl) num_gangs(1) copy(result)
!$acc loop reduction(+:result) !$acc loop reduction(+:result)
do i = 1, n do i = 1, n
result = result + array(i) result = result + array(i)
......
libgomp/testsuite/libgomp.oacc-fortran/reduction-6.f90
...@@ -11,7 +11,7 @@ program reduction ...@@ -11,7 +11,7 @@ program reduction
vs1 = 0 vs1 = 0
vs2 = 0 vs2 = 0
!$acc parallel vector_length (32) !$acc parallel vector_length (32) copy(s1, s2)
!$acc loop reduction(+:s1, s2) !$acc loop reduction(+:s1, s2)
do i = 1, n do i = 1, n
s1 = s1 + 1 s1 = s1 + 1
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment