Libgomp: testsuite/libgomp.c/pr49898-2.c Source File

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