1  /* Testcase by Martin Michlmayr <tbm@cyrius.com> */
       2  
       3  /* { dg-do compile } */
       4  /* { dg-require-effective-target ilp32 } */
       5  /* { dg-options "-O2" } */
       6  
       7  double pow (double, double);
       8  
       9  void calc_score_dist (int mxdlen, long double d, long double **dist)
      10  {
      11    unsigned long i, scr2;
      12    for (i = 1; i <= mxdlen; i++)
      13      {
      14        for (scr2 = mxdlen; scr2 <= mxdlen + 10; scr2++)
      15  	{
      16  	}
      17        dist[i][scr2] *= pow (1.0 / d, i);
      18      }
      19  }