Libgomp: testsuite/libgomp.c/omp-single-3.c Source File

00001 extern void abort (void);
00002 
00003 void
00004 single (int a, int b)
00005 {
00006   #pragma omp single copyprivate(a) copyprivate(b)
00007     {
00008       a = b = 5;
00009     }
00010 
00011   if (a != b)
00012     abort ();
00013 }
00014 
00015 int main()
00016 {
00017   #pragma omp parallel
00018     single (1, 2);
00019 
00020   return 0;
00021 }