/* { dg-do compile } */ 
/* { dg-options "-O2 -ftree-loop-linear -fdump-tree-ltrans-all" } */
double foo(double *a)
{
       int i,j;
       double r = 0.0;
      for (i=0; i<8; ++i)
               for (j=0; j<8; ++j)
                      r += a[j*8+i];
       return r;
}

/* { dg-final { scan-tree-dump-times "transformed loop" 1 "ltrans"} } */ 
/* { dg-final { cleanup-tree-dump "ltrans" } } */