1 /* Copyright (C) 2004 Free Software Foundation.
3 Check that various built-in functions compile.
5 Written by Uros Bizjak, 13th February 2004. */
7 /* { dg-do compile } */
8 /* { dg-options "-O2 -ffast-math" } */
10 extern double exp10(double);
11 extern double exp2(double);
12 extern double pow10(double);
13 extern double expm1(double);
14 extern double ldexp(double, int);
15 extern double scalb(double, double);
16 extern double scalbn(double, int);
17 extern double scalbln(double, long);
18 extern double significand(double);
19 extern float exp10f(float);
20 extern float exp2f(float);
21 extern float pow10f(float);
22 extern float expm1f(float);
23 extern float ldexpf(float, int);
24 extern float scalbf(float, float);
25 extern float scalbnf(float, int);
26 extern float scalblnf(float, long);
27 extern float significandf(float);
28 extern long double exp10l(long double);
29 extern long double exp2l(long double);
30 extern long double pow10l(long double);
31 extern long double expm1l(long double);
32 extern long double ldexpl(long double, int);
33 extern long double scalbl(long double, long double);
34 extern long double scalbnl(long double, int);
35 extern long double scalblnl(long double, long);
36 extern long double significandl(long double);
39 double test1(double x)
44 double test2(double x)
49 double test3(double x)
54 double test4(double x)
59 double test5(double x, int exp)
64 double test6(double x, double exp)
69 double test7(double x, int exp)
71 return scalbn(x, exp);
74 double test8(double x, long exp)
76 return scalbln(x, exp);
79 double test9(double x)
81 return significand(x);
104 float test5f(float x, int exp)
106 return ldexpf(x, exp);
109 float test6f(float x, float exp)
111 return scalbf(x, exp);
114 float test7f(float x, int exp)
116 return scalbnf(x, exp);
119 float test8f(float x, long exp)
121 return scalblnf(x, exp);
124 float test9f(float x)
126 return significandf(x);
129 long double test1l(long double x)
134 long double test2l(long double x)
139 long double test3l(long double x)
144 long double test4l(long double x)
149 long double test5l(long double x, int exp)
151 return ldexpl(x, exp);
154 long double test6l(long double x, long double exp)
156 return scalbl(x, exp);
159 long double test7l(long double x, int exp)
161 return scalbnl(x, exp);
164 long double test8l(long double x, long exp)
166 return scalblnl(x, exp);
169 long double test9l(long double x)
171 return significandl(x);