/* { dg-do compile } */
void
wrong6 (int n)
{
#pragma omp parallel
#pragma omp single
work (n, 0);
/* incorrect nesting of barrier region in a single region */
#pragma omp barrier /* { dg-warning "may not be closely nested" } */
work (n, 1);
}