c42cfb5ca3
gcc/ PR lto/70289 PR ipa/70348 PR tree-optimization/70373 PR middle-end/70533 PR middle-end/70534 PR middle-end/70535 * gimplify.c (gimplify_adjust_omp_clauses): Add or adjust data clauses for acc parallel reductions as necessary. Error on those that are private. * omp-low.c (scan_sharing_clauses): Don't install variables which are used in acc parallel reductions. (lower_rec_input_clauses): Remove dead code. (lower_oacc_reductions): Add support for reference reductions. (lower_reduction_clauses): Remove dead code. (lower_omp_target): Don't remap variables appearing in acc parallel reductions. * tree.h (OMP_CLAUSE_MAP_IN_REDUCTION): New macro. gcc/testsuite/ * c-c++-common/goacc/reduction-5.c: New test. * c-c++-common/goacc/reduction-promotions.c: New test. * gfortran.dg/goacc/reduction-3.f95: New test. * gfortran.dg/goacc/reduction-promotions.f90: New test. libgomp/ * testsuite/libgomp.oacc-c-c++-common/loop-reduction-gang-np-1.c: New test. * testsuite/libgomp.oacc-c-c++-common/loop-reduction-gw-np-1.c: New test. * testsuite/libgomp.oacc-c-c++-common/loop-reduction-gwv-np-1.c: New test. * testsuite/libgomp.oacc-c-c++-common/loop-reduction-gwv-np-2.c: New test. * testsuite/libgomp.oacc-c-c++-common/loop-reduction-gwv-np-3.c: New test. * testsuite/libgomp.oacc-c-c++-common/loop-reduction-gwv-np-4.c: New test. * testsuite/libgomp.oacc-c-c++-common/loop-reduction-vector-p-1.c: New test. * testsuite/libgomp.oacc-c-c++-common/loop-reduction-vector-p-2.c: New test. * testsuite/libgomp.oacc-c-c++-common/loop-reduction-worker-p-1.c: New test. * testsuite/libgomp.oacc-c-c++-common/loop-reduction-wv-p-1.c: New test. * testsuite/libgomp.oacc-c-c++-common/loop-reduction-wv-p-2.c: New test. * testsuite/libgomp.oacc-c-c++-common/loop-reduction-wv-p-3.c: New test. * testsuite/libgomp.oacc-c-c++-common/par-loop-comb-reduction-1.c: New test. * testsuite/libgomp.oacc-c-c++-common/par-loop-comb-reduction-2.c: New test. * testsuite/libgomp.oacc-c-c++-common/par-loop-comb-reduction-3.c: New test. * testsuite/libgomp.oacc-c-c++-common/par-loop-comb-reduction-4.c: New test. * testsuite/libgomp.oacc-c-c++-common/par-reduction-1.c: Add test coverage. * testsuite/libgomp.oacc-c-c++-common/par-reduction-2.c: Likewise. * testsuite/libgomp.oacc-c-c++-common/parallel-dims.c: Likewise. * testsuite/libgomp.oacc-c-c++-common/parallel-reduction.c: New test. * testsuite/libgomp.oacc-c-c++-common/pr70289.c: New test. * testsuite/libgomp.oacc-c-c++-common/pr70373.c: New test. * testsuite/libgomp.oacc-c-c++-common/reduction-1.c: Add test coverage. * testsuite/libgomp.oacc-c-c++-common/reduction-2.c: Likewise. * testsuite/libgomp.oacc-c-c++-common/reduction-3.c: Likewise. * testsuite/libgomp.oacc-c-c++-common/reduction-4.c: Likewise. * testsuite/libgomp.oacc-c-c++-common/reduction-5.c: Likewise. * testsuite/libgomp.oacc-c-c++-common/reduction-6.c: New test. * testsuite/libgomp.oacc-c-c++-common/reduction.h: New test. * testsuite/libgomp.oacc-fortran/parallel-reduction.f90: New test. * testsuite/libgomp.oacc-fortran/pr70289.f90: New test. * testsuite/libgomp.oacc-fortran/reduction-1.f90: Add test coverage. * 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-5.f90: Likewise. * testsuite/libgomp.oacc-fortran/reduction-6.f90: Likewise. * testsuite/libgomp.oacc-fortran/reduction-7.f90: New test. From-SVN: r234840
85 lines
2.3 KiB
C
85 lines
2.3 KiB
C
/* { dg-do run } */
|
|
|
|
/* Ignore vector_length warnings for offloaded (nvptx) targets. */
|
|
/* { dg-additional-options "-foffload=-w" } */
|
|
|
|
/* double reductions. */
|
|
|
|
#include <stdlib.h>
|
|
#include "reduction.h"
|
|
|
|
const int ng = 8;
|
|
const int nw = 4;
|
|
const int vl = 32;
|
|
|
|
static void
|
|
test_reductions (void)
|
|
{
|
|
const int n = 10;
|
|
int i;
|
|
double array[n];
|
|
|
|
for (i = 0; i < n; i++)
|
|
array[i] = i+1;
|
|
|
|
/* Gang reductions. */
|
|
check_reduction_op (double, +, 0, array[i], num_gangs (ng), gang);
|
|
check_reduction_op (double, *, 1, array[i], num_gangs (ng), gang);
|
|
|
|
/* Worker reductions. */
|
|
check_reduction_op (double, +, 0, array[i], num_workers (nw), worker);
|
|
check_reduction_op (double, *, 1, array[i], num_workers (nw), worker);
|
|
|
|
/* Vector reductions. */
|
|
check_reduction_op (double, +, 0, array[i], vector_length (vl), vector);
|
|
check_reduction_op (double, *, 1, array[i], vector_length (vl), vector);
|
|
|
|
/* Combined reductions. */
|
|
check_reduction_op (double, +, 0, array[i], num_gangs (ng) num_workers (nw)
|
|
vector_length (vl), gang worker vector);
|
|
check_reduction_op (double, *, 1, array[i], num_gangs (ng) num_workers (nw)
|
|
vector_length (vl), gang worker vector);
|
|
}
|
|
|
|
static void
|
|
test_reductions_minmax (void)
|
|
{
|
|
const int n = 1000;
|
|
int i;
|
|
double array[n];
|
|
|
|
for (i = 0; i < n; i++)
|
|
array[i] = i;
|
|
|
|
/* Gang reductions. */
|
|
check_reduction_macro (double, min, n + 1, array[i], num_gangs (ng), gang);
|
|
check_reduction_macro (double, max, -1, array[i], num_gangs (ng), gang);
|
|
|
|
/* Worker reductions. */
|
|
check_reduction_macro (double, min, n + 1, array[i], num_workers (nw),
|
|
worker);
|
|
check_reduction_macro (double, max, -1, array[i], num_workers (nw), worker);
|
|
|
|
/* Vector reductions. */
|
|
check_reduction_macro (double, min, n + 1, array[i], vector_length (vl),
|
|
vector);
|
|
check_reduction_macro (double, max, -1, array[i], vector_length (vl),
|
|
vector);
|
|
|
|
/* Combined reductions. */
|
|
check_reduction_macro (double, min, n + 1, array[i], num_gangs (ng)
|
|
num_workers (nw) vector_length (vl), gang worker
|
|
vector);
|
|
check_reduction_macro (double, max, -1, array[i], num_gangs (ng)
|
|
num_workers (nw) vector_length (vl), gang worker
|
|
vector);
|
|
}
|
|
|
|
int
|
|
main (void)
|
|
{
|
|
test_reductions ();
|
|
test_reductions_minmax ();
|
|
return 0;
|
|
}
|