Libgomp: testsuite/libgomp.c++/single-1.C Source File

00001 extern "C" void abort (void);
00002 
00003 main()
00004 {
00005   int i = 0;
00006 
00007   #pragma omp parallel shared (i)
00008     {
00009       #pragma omp single
00010     {
00011       i++;
00012     }
00013     }
00014 
00015   if (i != 1)
00016     abort ();
00017 
00018   return 0;
00019 }