Mercurial > hg > CbC > CbC_gcc

annotate gcc/testsuite/gcc.c-torture/compile/991202-1.c @ 131:84e7813d76e9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc-8.2
author mir3636
date Thu, 25 Oct 2018 07:37:49 +0900
parents 04ced10e8804
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
111
kono
parents:
diff changeset
1 extern float A[], B[];
kono
parents:
diff changeset
2 extern float MAXNUMF;
kono
parents:
diff changeset
3 float chbevlf(float, float *, int);
kono
parents:
diff changeset
4 float expf(float), i1f(float), logf(float), sqrtf(float);
kono
parents:
diff changeset
5
kono
parents:
diff changeset
6 float k1f(float xx)
kono
parents:
diff changeset
7 {
kono
parents:
diff changeset
8 float x, y;
kono
parents:
diff changeset
9
kono
parents:
diff changeset
10 x = xx;
kono
parents:
diff changeset
11 if( x <= 2.0 )
kono
parents:
diff changeset
12 {
kono
parents:
diff changeset
13 y = x * x - 2.0;
kono
parents:
diff changeset
14 y = logf( 0.5f * x ) * i1f(x) + chbevlf( y, A, 7 ) / x;
kono
parents:
diff changeset
15 return( y );
kono
parents:
diff changeset
16 }
kono
parents:
diff changeset
17 return( expf(-x) * chbevlf( (float)(8.0/x - 2.0), B, 10 ) / sqrtf(x) );
kono
parents:
diff changeset
18 }