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