Subversion Repositories openrisc

/* { dg-do compile } */
 
typedef double d_type;
struct
{
  d_type x;
  d_type y;
} S[100];
 
#define N 16
d_type foo (d_type t);
 
d_type
main1 ()
{
  int i;
  d_type t;
 
  for (i = 0; i < N; i++)
    {
      t = (d_type) i / (d_type) 10;
      S[5].x = t * t;
    }
  return S[5].x;
}
 
int
main (void)
{
  d_type tmp = main1 ();
}
/* { dg-final { cleanup-tree-dump "vect" } } */