libgomp/testsuite/libgomp.oacc-c-c++-common/gang-static-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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48

#include <assert.h>

#define N 100

void
test (int *a, int *b, int sarg)
{
  int i;

  for (i = 0; i < N; i++)
    assert (a[i] == b[i] + sarg);
}

int
main ()
{
  int a[N], b[N];
  int i;

  for (i = 0; i < N; i++)
    b[i] = i+1;

#pragma acc parallel loop gang (static:*) num_gangs (10)
  for (i = 0; i < 100; i++)
    a[i] = b[i] + 0;

  test (a, b, 0);

#pragma acc parallel loop gang (static:1) num_gangs (10)
  for (i = 0; i < 100; i++)
    a[i] = b[i] + 1;

  test (a, b, 1);

#pragma acc parallel loop gang (static:5) num_gangs (10)
  for (i = 0; i < 100; i++)
    a[i] = b[i] + 5;

  test (a, b, 5);

#pragma acc parallel loop gang (static:20) num_gangs (10)
  for (i = 0; i < 100; i++)
    a[i] = b[i] + 20;

  test (a, b, 20);

  return 0;
}