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