gomp-20050608-branch/libgomp/testsuite/libgomp.c++/single-1.C

   1 extern "C" void abort (void);
   2
   3 main()
   4 {
   5   int i = 0;
   6
   7   #pragma omp parallel shared (i)
   8     {
   9       #pragma omp single
  10         {
  11           i++;
  12         }
  13     }
  14
  15   if (i != 1)
  16     abort ();
  17
  18   return 0;
  19 }