libgomp/testsuite/libgomp.oacc-c-c++-common/kernels-loop-collapse.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

/* { dg-do run } */
/* { dg-additional-options "-ftree-parallelize-loops=32" } */

#include <stdlib.h>

#define N 100

int a[N][N];

void __attribute__((noinline, noclone))
foo (int m, int n)
{
  int i, j;
  #pragma acc kernels
  {
#pragma acc loop collapse(2)
    for (i = 0; i < m; i++)
      for (j = 0; j < n; j++)
	a[i][j] = 1;
  }
}

int
main (void)
{
  int i, j;

  for (i = 0; i < N; i++)
    for (j = 0; j < N; j++)
      a[i][j] = 0;

  foo (N, N);

  for (i = 0; i < N; i++)
    for (j = 0; j < N; j++)
      if (a[i][j] != 1)
	abort ();

  return 0;
}