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