libgomp/testsuite/libgomp.c/pr42029.c

   1 /* PR middle-end/42029 */
   2 /* { dg-do run } */
   3
   4 extern void abort (void);
   5
   6 int
   7 main ()
   8 {
   9   int i;
  10   _Complex int c = 0;
  11
  12 #pragma omp parallel for private(i) reduction(+:c)
  13   for (i = 0; i < 8; ++i)
  14     c += 1;
  15
  16   if (c != 8)
  17     abort ();
  18   return 0;
  19 }