OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.dg/] [builtins-2.c] - Blame information for rev 801

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 689 jeremybenn 
/* Copyright (C) 2002  Free Software Foundation.
2 
 
3 
   Verify that built-in math function constant folding doesn't
4 
   cause any problems for the compiler.
5 
 
6 
   Written by Roger Sayle, 16th August 2002.  */
7 
 
8 
/* { dg-do compile } */
9 
/* { dg-options "-O2 -ffast-math" } */
10 
 
11 
extern double atan (double);
12 
extern float atanf (float);
13 
extern long double atanl (long double);
14 
extern double exp (double);
15 
extern float expf (float);
16 
extern long double expl (long double);
17 
extern double fabs (double);
18 
extern float fabsf (float);
19 
extern long double fabsl (long double);
20 
extern double log (double);
21 
extern float logf (float);
22 
extern long double logl (long double);
23 
extern double pow (double, double);
24 
extern float powf (float, float);
25 
extern long double powl (long double, long double);
26 
extern double sqrt (double);
27 
extern float sqrtf (float);
28 
extern long double sqrtl (long double);
29 
extern double tan (double);
30 
extern float tanf (float);
31 
extern long double tanl (long double);
32 
 
33 
double test1(double x)
34 
{
35 
  return log(exp(x));
36 
}
37 
 
38 
double test2(double x)
39 
{
40 
  return exp(log(x));
41 
}
42 
 
43 
double test3(double x)
44 
{
45 
  return sqrt(exp(x));
46 
}
47 
 
48 
double test4(double x)
49 
{
50 
  return log(sqrt(x));
51 
}
52 
 
53 
double test5(double x, double y)
54 
{
55 
  return sqrt(x)*sqrt(y);
56 
}
57 
 
58 
double test6(double x, double y)
59 
{
60 
  return exp(x)*exp(y);
61 
}
62 
 
63 
double test7(double x, double y)
64 
{
65 
  return x/exp(y);
66 
}
67 
 
68 
double test8(double x)
69 
{
70 
  return fabs(sqrt(x));
71 
}
72 
 
73 
double test9(double x)
74 
{
75 
  return fabs(exp(x));
76 
}
77 
 
78 
double test10(double x)
79 
{
80 
  return tan(atan(x));
81 
}
82 
 
83 
double test11(double x)
84 
{
85 
  return fabs(fabs(x));
86 
}
87 
 
88 
double test12(double x)
89 
{
90 
  return fabs(atan(x));
91 
}
92 
 
93 
double test13(double x)
94 
{
95 
  return fabs(pow(2.0,x));
96 
}
97 
 
98 
float test1f(float x)
99 
{
100 
  return logf(expf(x));
101 
}
102 
 
103 
float test2f(float x)
104 
{
105 
  return expf(logf(x));
106 
}
107 
 
108 
float test3f(float x)
109 
{
110 
  return sqrtf(expf(x));
111 
}
112 
 
113 
float test4f(float x)
114 
{
115 
  return logf(sqrtf(x));
116 
}
117 
 
118 
float test5f(float x, float y)
119 
{
120 
  return sqrtf(x)*sqrtf(y);
121 
}
122 
 
123 
float test6f(float x, float y)
124 
{
125 
  return expf(x)*expf(y);
126 
}
127 
 
128 
float test7f(float x, float y)
129 
{
130 
  return x/expf(y);
131 
}
132 
 
133 
float test8f(float x)
134 
{
135 
  return fabsf(sqrtf(x));
136 
}
137 
 
138 
float test9f(float x)
139 
{
140 
  return fabsf(expf(x));
141 
}
142 
 
143 
float test10f(float x)
144 
{
145 
  return tanf(atanf(x));
146 
}
147 
 
148 
float test11f(float x)
149 
{
150 
  return fabsf(fabsf(x));
151 
}
152 
 
153 
float test12f(float x)
154 
{
155 
  return fabsf(atanf(x));
156 
}
157 
 
158 
float test13f(float x)
159 
{
160 
  return fabsf(powf(2.0f,x));
161 
}
162 
 
163 
long double test1l(long double x)
164 
{
165 
  return logl(expl(x));
166 
}
167 
 
168 
long double test2l(long double x)
169 
{
170 
  return expl(logl(x));
171 
}
172 
 
173 
long double test3l(long double x)
174 
{
175 
  return sqrtl(expl(x));
176 
}
177 
 
178 
long double test4l(long double x)
179 
{
180 
  return logl(sqrtl(x));
181 
}
182 
 
183 
long double test5l(long double x, long double y)
184 
{
185 
  return sqrtl(x)*sqrtl(y);
186 
}
187 
 
188 
long double test6l(long double x, long double y)
189 
{
190 
  return expl(x)*expl(y);
191 
}
192 
 
193 
long double test7l(long double x, long double y)
194 
{
195 
  return x/expl(y);
196 
}
197 
 
198 
long double test8l(long double x)
199 
{
200 
  return fabsl(sqrtl(x));
201 
}
202 
 
203 
long double test9l(long double x)
204 
{
205 
  return fabsl(expl(x));
206 
}
207 
 
208 
long double test10l(long double x)
209 
{
210 
  return tanl(atanl(x));
211 
}
212 
 
213 
long double test11l(long double x)
214 
{
215 
  return fabsl(fabsl(x));
216 
}
217 
 
218 
long double test12l(long double x)
219 
{
220 
  return fabsl(atanl(x));
221 
}
222 
 
223 
long double test13l(long double x)
224 
{
225 
  return fabsl(powl(2.0l,x));
226 
}
227 
 

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.