xref: /openbsd-src/gnu/gcc/libgomp/testsuite/libgomp.c/omp-single-1.c (revision 404b540a9034ac75a6199ad1a32d1bbc7a0d4210) 
1*404b540aSrobert extern void abort (void);
2*404b540aSrobert 
main()3*404b540aSrobert main()
4*404b540aSrobert {
5*404b540aSrobert   int i = 0;
6*404b540aSrobert 
7*404b540aSrobert   #pragma omp parallel shared (i)
8*404b540aSrobert     {
9*404b540aSrobert       #pragma omp single
10*404b540aSrobert 	{
11*404b540aSrobert 	  i++;
12*404b540aSrobert 	}
13*404b540aSrobert     }
14*404b540aSrobert 
15*404b540aSrobert   if (i != 1)
16*404b540aSrobert     abort ();
17*404b540aSrobert 
18*404b540aSrobert   return 0;
19*404b540aSrobert }
20