|
111
|
1 /* Copyright (C) 2004 Free Software Foundation.
|
|
|
2
|
|
|
3 Check that various built-in functions compile.
|
|
|
4
|
|
|
5 Written by Uros Bizjak, 13th February 2004. */
|
|
|
6
|
|
|
7 /* { dg-do compile } */
|
|
|
8 /* { dg-options "-O2 -ffast-math" } */
|
|
|
9
|
|
|
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);
|
|
|
37
|
|
|
38
|
|
|
39 double test1(double x)
|
|
|
40 {
|
|
|
41 return exp10(x);
|
|
|
42 }
|
|
|
43
|
|
|
44 double test2(double x)
|
|
|
45 {
|
|
|
46 return exp2(x);
|
|
|
47 }
|
|
|
48
|
|
|
49 double test3(double x)
|
|
|
50 {
|
|
|
51 return pow10(x);
|
|
|
52 }
|
|
|
53
|
|
|
54 double test4(double x)
|
|
|
55 {
|
|
|
56 return expm1(x);
|
|
|
57 }
|
|
|
58
|
|
|
59 double test5(double x, int exp)
|
|
|
60 {
|
|
|
61 return ldexp(x, exp);
|
|
|
62 }
|
|
|
63
|
|
|
64 double test6(double x, double exp)
|
|
|
65 {
|
|
|
66 return scalb(x, exp);
|
|
|
67 }
|
|
|
68
|
|
|
69 double test7(double x, int exp)
|
|
|
70 {
|
|
|
71 return scalbn(x, exp);
|
|
|
72 }
|
|
|
73
|
|
|
74 double test8(double x, long exp)
|
|
|
75 {
|
|
|
76 return scalbln(x, exp);
|
|
|
77 }
|
|
|
78
|
|
|
79 double test9(double x)
|
|
|
80 {
|
|
|
81 return significand(x);
|
|
|
82 }
|
|
|
83
|
|
|
84 float test1f(float x)
|
|
|
85 {
|
|
|
86 return exp10f(x);
|
|
|
87 }
|
|
|
88
|
|
|
89 float test2f(float x)
|
|
|
90 {
|
|
|
91 return exp2f(x);
|
|
|
92 }
|
|
|
93
|
|
|
94 float test3f(float x)
|
|
|
95 {
|
|
|
96 return pow10f(x);
|
|
|
97 }
|
|
|
98
|
|
|
99 float test4f(float x)
|
|
|
100 {
|
|
|
101 return expm1f(x);
|
|
|
102 }
|
|
|
103
|
|
|
104 float test5f(float x, int exp)
|
|
|
105 {
|
|
|
106 return ldexpf(x, exp);
|
|
|
107 }
|
|
|
108
|
|
|
109 float test6f(float x, float exp)
|
|
|
110 {
|
|
|
111 return scalbf(x, exp);
|
|
|
112 }
|
|
|
113
|
|
|
114 float test7f(float x, int exp)
|
|
|
115 {
|
|
|
116 return scalbnf(x, exp);
|
|
|
117 }
|
|
|
118
|
|
|
119 float test8f(float x, long exp)
|
|
|
120 {
|
|
|
121 return scalblnf(x, exp);
|
|
|
122 }
|
|
|
123
|
|
|
124 float test9f(float x)
|
|
|
125 {
|
|
|
126 return significandf(x);
|
|
|
127 }
|
|
|
128
|
|
|
129 long double test1l(long double x)
|
|
|
130 {
|
|
|
131 return exp10l(x);
|
|
|
132 }
|
|
|
133
|
|
|
134 long double test2l(long double x)
|
|
|
135 {
|
|
|
136 return exp2l(x);
|
|
|
137 }
|
|
|
138
|
|
|
139 long double test3l(long double x)
|
|
|
140 {
|
|
|
141 return pow10l(x);
|
|
|
142 }
|
|
|
143
|
|
|
144 long double test4l(long double x)
|
|
|
145 {
|
|
|
146 return expm1l(x);
|
|
|
147 }
|
|
|
148
|
|
|
149 long double test5l(long double x, int exp)
|
|
|
150 {
|
|
|
151 return ldexpl(x, exp);
|
|
|
152 }
|
|
|
153
|
|
|
154 long double test6l(long double x, long double exp)
|
|
|
155 {
|
|
|
156 return scalbl(x, exp);
|
|
|
157 }
|
|
|
158
|
|
|
159 long double test7l(long double x, int exp)
|
|
|
160 {
|
|
|
161 return scalbnl(x, exp);
|
|
|
162 }
|
|
|
163
|
|
|
164 long double test8l(long double x, long exp)
|
|
|
165 {
|
|
|
166 return scalblnl(x, exp);
|
|
|
167 }
|
|
|
168
|
|
|
169 long double test9l(long double x)
|
|
|
170 {
|
|
|
171 return significandl(x);
|
|
|
172 }
|
