(root)/
gcc-13.2.0/
libgomp/
testsuite/
libgomp.c/
teams-3.c
       1  /* PR middle-end/96459 */
       2  
       3  #include <stdlib.h>
       4  
       5  int
       6  main ()
       7  {
       8    int niters = 0, i, j, k;
       9    #pragma omp teams reduction(+:niters)
      10    {
      11      #pragma omp distribute collapse(3)
      12      for (i = 0; i < 3; i++)
      13        for (j = 0; j < 8; j += 2)
      14  	for (k = 0; k < 25; k += 3)
      15  	  niters++;
      16    }
      17    if (niters != 108)
      18      abort ();
      19    return 0;
      20  }