/* { dg-do compile } */ | |
void work (int, int); | |
void | |
wrong3 (int n) | |
{ | |
#pragma omp parallel default(shared) | |
{ | |
int i; | |
#pragma omp for | |
for (i = 0; i < n; i++) | |
{ | |
/* incorrect nesting of regions */ | |
#pragma omp single /* { dg-warning "may not be closely nested" } */ | |
work (i, 0); | |
} | |
} | |
} |