libgomp/testsuite/libgomp.c/appendix-a/a.15.1.c

   1 /* { dg-do run } */
   2
   3 #include <omp.h>
   4 #include <stdio.h>
   5
   6 void
   7 work (int n)
   8 {
   9   printf ("[%d of %d], nested = %d, n = %d\n", omp_get_thread_num (), omp_get_num_threads(), omp_get_nested (), n);
  10 }
  11
  12 void
  13 sub3 (int n)
  14 {
  15   work (n);
  16 #pragma omp barrier
  17   work (n);
  18 }
  19
  20 void
  21 sub2 (int k)
  22 {
  23 #pragma omp parallel shared(k)
  24   sub3 (k);
  25 }
  26
  27 void
  28 sub1 (int n)
  29 {
  30   int i;
  31 #pragma omp parallel private(i) shared(n)
  32   {
  33 #pragma omp for
  34     for (i = 0; i < n; i++)
  35       sub2 (i);
  36   }
  37 }
  38 int
  39 main ()
  40 {
  41   sub1 (2);
  42   sub2 (15);
  43   sub3 (20);
  44   return 0;
  45 }