1 /* { dg-do compile } */ 2 3 void work (int, int); 4 5 void wrong5(int n)6wrong5 (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