Subversion Repositories openrisc

/* { dg-do compile } */
/* { dg-options "-O1 -fdump-tree-optimized" } */
 
union A
{
 float a;
};
 
float t(float a)
{
  union A a1, a2, a3;
  int i;
 
  a1.a = a;
  for(i = 0; i<100; i++)
    {
      a2 = a1;
      a2.a += a;
      a1 = a2;
  }
  a3 = a1;
  return a3.a;
}
 
/* { dg-final { scan-tree-dump-times "union" 0 "optimized"} } */
/* { dg-final { cleanup-tree-dump "optimized" } } */