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