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