1  /* PR middle-end/102504 */
       2  /* { dg-do compile } */
       3  
       4  int
       5  foo ()
       6  {
       7    int r = 0;
       8    #pragma omp scope reduction(+:r)	/* { dg-error "reduction variable 'r' is private in outer context" } */
       9    r++;
      10    return r;
      11  }