Subversion Repositories openrisc

/* { dg-do compile } */
/* { dg-options "-O -fno-tree-sra -fdump-tree-fre-details" } */
 
/* Should be optimized, propagating &a into (*p)[i].  */
 
struct Foo
{
  void *data;
  double size;
};
void bar(double *);
void foo(double (*q)[4])
{
  struct Foo tmp1;
  double a[4];
  int i;
  tmp1.data = &a;
  for (i=0; i<4; ++i)
    {
      double (*p)[4] = tmp1.data;
      (*p)[i] = (*q)[i];
      /* We want a PHI for the VOP for accessing tmp1.data, so place
 	 this store to tmp1 here.  */
      tmp1.size -= 1.0;
    }
  bar(a);
}
 
/* { dg-final { scan-tree-dump "Replaced" "fre" } } */
/* { dg-final { cleanup-tree-dump "fre" } } */