Sign in
gnu
/
gcc
/
1f16a020acbea0af26209478990b83b1a1ba3a2b
/
.
/
gcc
/
testsuite
/
gcc.dg
/
vect
/
fast-math-vect-pr25911.c
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
;
}