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