libgomp/testsuite/libgomp.hsa.c/function-call-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
49
50

#define size 8

#pragma omp declare target
int
identity (int x)
{
  return x;
}

int
expx (int x, int n)
{
  for (int i = 0; i < n - 1; i++)
    x *= x;

  return x;
}

float
init (int x, int y)
{
  int x1 = identity (identity (identity (identity (x))));
  int y1 = identity (identity (identity (identity (y))));

  int x2 = expx (x1, 2);
  int y2 = expx (y1, 2);

  return (x2 + y2);
}
#pragma omp end declare target

int
main ()
{
  int i, j;
  int a[size][size];

#pragma omp target teams map(to:a[:size][:size])
#pragma omp distribute parallel for default(none) private(i, j) shared(a)
  for (i = 0; i < size; ++i)
    for (j = 0; j < size; ++j)
      a[i][j] = init (i, j);

  for (i = 0; i < size; ++i)
    for (j = 0; j < size; ++j)
      if (i * i + j * j != a[i][j])
       __builtin_abort ();

  return 0;
}