1 /* { dg-do compile } */
2 
3 void work (int, int);
4 
5 void
wrong5(int n)6 wrong5 (int n)
7 {
8 #pragma omp parallel
9   {
10 #pragma omp critical
11     {
12       work (n, 0);
13 /* incorrect nesting of barrier region in a critical region */
14 #pragma omp barrier	/* { dg-error "may not be closely nested" } */
15       work (n, 1);
16     }
17   }
18 }
19