gcc/testsuite/c-c++-common/gomp/scope-4.c

   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 }