1  // { dg-do compile }
       2  
       3  #define p	parallel
       4  #define s(x)	shared(x##1, x##2)
       5  #define d(x)	default(x)
       6  
       7  void bar(int, int, int, int);
       8  void foo(void)
       9  {
      10    int a1, a2, b1, b2;
      11  
      12    #pragma omp p s(a) s(b) d(none)
      13      bar(a1, a2, b1, b2);
      14  }