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
7void bar(int, int, int, int);
8void 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}
15