Projet_SETI_RISC-V/riscv-gnu-toolchain/gcc/libgomp/testsuite/libgomp.c/teams-3.c

21 lines
328 B
C
Raw Normal View History

2023-03-06 14:48:14 +01:00
/* 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;
}