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