1/* PR middle-end/53580 */
2/* { dg-do compile } */
3/* { dg-options "-fopenmp" } */
4
5int
6main ()
7{
8  int x, y, v = 0;
9
10#pragma omp parallel
11  #pragma omp for
12    for (x = 0; x < 10; x++)
13      {
14      #pragma omp for reduction(+: v)	/* { dg-error "work-sharing region may not be closely nested inside of work-sharing" } */
15	for (y = 0; y < 10; y++)
16	  v++;
17      }
18  return v - 100;
19}
20