Skip gnat.dg/prot7.adb on hppa.
[official-gcc.git] / libgomp / testsuite / libgomp.c-c++-common / reduction-17.c
blob5e680d69cfa6337ebb86e98f7ea8241ee419a628
1 /* PR middle-end/99928 */
2 /* { dg-do run } */
4 #define N 64
6 int
7 main ()
9 int r = 0, i;
10 #pragma omp teams distribute simd reduction(+:r)
11 for (i = 0; i < N; i++)
12 r += i;
13 if (r != N * (N - 1) / 2)
14 __builtin_abort ();
15 return 0;