extract out pet_wrap_aff and pet_wrap_pw_aff
[pet.git] / tests / inline5.c
blobdc023144b057deb9c7cdd6b73b53fe1e28e5d772
1 inline void g(int n, int a[n])
3 for (int i = 0; i < n; ++i)
4 a[i] = 0;
7 void f(int n, int m, int a[n][m])
9 #pragma scop
10 for (int i = 0; i < n; ++i)
11 g(m - 2, &a[i][1]);
12 #pragma endscop