(root)/
gcc-13.2.0/
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  }