tests/call3.c

   1 #include <stdlib.h>
   2
   3 void copy_summary(int b[100], int a[100])
   4 {
   5         for (int i = 0; i < 100; ++i) {
   6                 b[i] = 0;
   7                 int c = a[i];
   8         }
   9 }
  10
  11 #ifdef pencil_access
  12 __attribute__((pencil_access(copy_summary)))
  13 #endif
  14 void copy(int b[100], int a[100]);
  15
  16 int main()
  17 {
  18         int A[100][100], B[100];
  19
  20         for (int i = 0; i < 100; ++i)
  21                 B[i] = i;
  22 #pragma scop
  23         for (int i = 0; i < 100; ++i)
  24                 copy(A[i], B);
  25 #pragma endscop
  26         for (int i = 0; i < 100; ++i)
  27                 for (int j = 0; j < 100; ++j)
  28                         if (A[j][i] != B[i])
  29                                 return EXIT_FAILURE;
  30
  31         return EXIT_SUCCESS;
  32 }