libgomp/testsuite/libgomp.oacc-c-c++-common/loop-reduction-gw-np-1.c


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30

/* { dg-additional-options "-w" } */

#include <assert.h>

/* Test of reduction on loop directive (gangs and workers, non-private
   reduction variable).  */

int
main (int argc, char *argv[])
{
  int i, arr[1024], res = 0, hres = 0;

  for (i = 0; i < 1024; i++)
    arr[i] = i;

  #pragma acc parallel num_gangs(32) num_workers(32) vector_length(32) \
		       copy(res)
  {
    #pragma acc loop gang worker reduction(+:res)
    for (i = 0; i < 1024; i++)
      res += arr[i];
  }

  for (i = 0; i < 1024; i++)
    hres += arr[i];

  assert (res == hres);

  return 0;
}