Libgomp: testsuite/libgomp.c/pr42029.c Source File

00001 /* PR middle-end/42029 */
00002 /* { dg-do run } */
00003 
00004 extern void abort (void);
00005 
00006 int
00007 main ()
00008 {
00009   int i;
00010   _Complex int c = 0;
00011 
00012 #pragma omp parallel for private(i) reduction(+:c)
00013   for (i = 0; i < 8; ++i)
00014     c += 1;
00015 
00016   if (c != 8)
00017     abort ();
00018   return 0;
00019 }