repo.or.cz
/
official-gcc.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
testsuite: Revert to the original version of pr100056.c
[official-gcc.git]
/
gcc
/
testsuite
/
gcc.dg
/
vect
/
fast-math-vect-pr25911.c
blob
0c33baec59413b92655ca3335145e9fb0e032cac
1
/* { dg-do compile } */
2
/* { dg-additional-options "-ffast-math" } */
3
4
float
bessel_Kn_scaled_small_x
(
int
n
)
5
{
6
int
k
;
7
float
k_term
,
sum1
;
8
for
(
k
=
1
;
k
<=
n
-
1
;
k
++)
9
{
10
k_term
*= -
1
/(
k
* (
n
-
k
));
11
sum1
+=
k_term
;
12
}
13
return
sum1
;
14
}
15