OSDN Git Service

2007-12-06 Zdenek Dvorak <ook@ucw.cz>
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gcc.dg / vect / fast-math-vect-pr25911.c
1 /* { dg-do compile } */
2
3 float bessel_Kn_scaled_small_x(int n)
4 {
5   int k;
6   float k_term, sum1;
7   for(k=1; k<=n-1; k++)
8   {
9     k_term *= -1/(k * (n-k));
10     sum1 += k_term;
11   }
12   return sum1;
13 }
14
15 /* { dg-final { cleanup-tree-dump "vect" } } */