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