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);
foo(void)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 }
15