gcc/testsuite/gcc.dg/gomp/appendix-a/a.10.1.c

   1 /* { dg-do compile } */
   2
   3 #include <stdio.h>
   4 void
   5 work1 ()
   6 {
   7 }
   8
   9 void
  10 work2 ()
  11 {
  12 }
  13 void
  14 a10 ()
  15 {
  16 #pragma omp parallel
  17   {
  18 #pragma omp single
  19     printf ("Beginning work1.\n");
  20     work1 ();
  21 #pragma omp single
  22     printf ("Finishing work1.\n");
  23 #pragma omp single nowait
  24     printf ("Finished work1 and beginning work2.\n");
  25     work2 ();
  26   }
  27 }