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