Subversion Repositories openrisc_me

/* Testcase by Martin Michlmayr <tbm@cyrius.com> */
 
/* { dg-do compile } */
/* { dg-require-effective-target ilp32 } */
/* { dg-options "-O2" } */
 
double pow (double, double);
 
void calc_score_dist (int mxdlen, long double d, long double **dist)
{
  unsigned long i, scr2;
  for (i = 1; i <= mxdlen; i++)
    {
      for (scr2 = mxdlen; scr2 <= mxdlen + 10; scr2++)
	{
	}
      dist[i][scr2] *= pow (1.0 / d, i);
    }
}