libgomp/testsuite/libgomp.c/pr49898-1.c

   1 /* PR middle-end/49898 */
   2 /* { dg-do run } */
   3
   4 extern void abort (void);
   5
   6 int
   7 main ()
   8 {
   9   int i, j, sum = 0;
  10 #pragma omp parallel
  11   {
  12   #pragma omp for reduction(+:sum)
  13     for (i = 0; i < 10; i++)
  14       {
  15       #pragma omp parallel
  16         {
  17         #pragma omp for reduction(+:sum)
  18           for (j = 0; j < 10; j++)
  19             sum += j;
  20         }
  21       }
  22   }
  23   if (sum != 450)
  24     abort ();
  25   return 0;
  26 }