blob: e1d0d4571fbf3164dc880d48f4354b96e2000855 [file] [log] [blame]
/* { dg-do compile } */
float bessel_Kn_scaled_small_x(int n)
{
int k;
float k_term, sum1;
for(k=1; k<=n-1; k++)
{
k_term *= -1/(k * (n-k));
sum1 += k_term;
}
return sum1;
}