1  /* PR c/100450 */
       2  /* { dg-do compile } */
       3  /* { dg-options "-fopenmp -save-temps -Wunknown-pragmas" } */
       4  
       5  #define TEST(T) { \
       6       {T} \
       7  }
       8  #define CLAUSES reduction(+:red)
       9  #define PARALLEL_FOR(X) TEST({ \
      10  _Pragma("omp for CLAUSES") \
      11  X \
      12  })
      13  
      14  void foo()
      15  {
      16    int red = 0;
      17    int A[3] = {};
      18    #pragma omp parallel shared(red)
      19    PARALLEL_FOR( for(int i=0; i < 3; i++) red += A[i]; )
      20  }