libgomp/testsuite/libgomp.c/uns-outer-4.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

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

void abort (void);

unsigned int g_sum = 1;

unsigned int x[500][500];

void __attribute__((noinline,noclone))
parloop (int N)
{
  int i, j;
  unsigned int sum;

  /* Double reduction is detected, outer loop is parallelized.  */
  sum = 0;
  for (i = 0; i < N; i++)
    for (j = 0; j < N; j++)
      sum += x[i][j];

  g_sum = sum;
}

int
main (void)
{
  x[234][432] = 2;

  parloop (500);

  if (g_sum != 2)
    abort ();

  return 0;
}