tests/unitary/ax-do.c

   1 void main() {
   2   int i, j, n;
   3   float a[100][100], b[100], c[100] ;
   4 #pragma scop
   5   /* ax-do kernel */
   6   for (i=1;i<=n;i++)           /* Loop label: i=1. */
   7     c[i] = 0 ;                 /* Array label: c=1. */
   8
   9   for (i=1;i<=n;i++)           /* Loop label: i=2. */
  10     for (j=1;j<=n;j++)         /* Loop label: j=3. */
  11       c[i] += a[i][j] * b[j] ; /* Array labels: c=1, a=2, b=3. */
  12 #pragma endscop
  13 }
  14