gcc/testsuite/gcc.dg/gomp/pr99007-3.c


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

/* PR middle-end/99007 */

int
bar (int n)
{
  int s[n];
  int i, j;
  for (i = 0; i < n; i++)
    s[i] = 0;
  #pragma omp parallel reduction(+:s) num_threads(2)
  #pragma omp parallel for reduction(+:s) private (j)
  for (i = 0; i < 8; i++)
    for (j = 0; j < n; j++)
      s[j] += i;
  return s[0] + s[n - 1];
}