Libgomp: testsuite/libgomp.c/nestedfn-6.c Source File

00001 extern void abort (void);
00002 
00003 int j;
00004 
00005 int
00006 main (void)
00007 {
00008   int i;
00009   void nested (void) { i = 0; }
00010 #pragma omp parallel for lastprivate (i)
00011   for (i = 0; i < 50; i += 3)
00012     ;
00013   if (i != 51)
00014     abort ();
00015 #pragma omp parallel for lastprivate (j)
00016   for (j = -50; j < 70; j += 7)
00017     ;
00018   if (j != 76)
00019     abort ();
00020   return 0;
00021 }