libgomp/testsuite/libgomp.c/teams-3.c


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

/* PR middle-end/96459 */

#include <stdlib.h>

int
main ()
{
  int niters = 0, i, j, k;
  #pragma omp teams reduction(+:niters)
  {
    #pragma omp distribute collapse(3)
    for (i = 0; i < 3; i++)
      for (j = 0; j < 8; j += 2)
	for (k = 0; k < 25; k += 3)
	  niters++;
  }
  if (niters != 108)
    abort ();
  return 0;
}