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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.dg/] [builtins-51.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 
/* { dg-do run } */
2 
/* { dg-options "-O2 -ffast-math" } */
3 
 
4 
extern double pow(double, double);
5 
extern double fabs(double);
6 
extern void abort(void);
7 
 
8 
double test2_1(double x)
9 
{
10 
  return pow(x,2.0);
11 
}
12 
 
13 
double test2_2(double x)
14 
{
15 
  return pow(-x,2.0);
16 
}
17 
 
18 
double test2_3(double x)
19 
{
20 
  return pow(fabs(x),2.0);
21 
}
22 
 
23 
double test3_1(double x)
24 
{
25 
  return pow(x,3.0);
26 
}
27 
 
28 
double test3_2(double x)
29 
{
30 
  return pow(-x,3.0);
31 
}
32 
 
33 
double test3_3(double x)
34 
{
35 
  return pow(fabs(x),3.0);
36 
}
37 
 
38 
double test6_1(double x)
39 
{
40 
  return pow(x,6.0);
41 
}
42 
 
43 
double test6_2(double x)
44 
{
45 
  return pow(-x,6.0);
46 
}
47 
 
48 
double test6_3(double x)
49 
{
50 
  return pow(fabs(x),6.0);
51 
}
52 
 
53 
 
54 
int main()
55 
{
56 
  if (test2_1(1.0) != 1.0)
57 
    abort();
58 
  if (test2_1(2.0) != 4.0)
59 
    abort();
60 
  if (test2_1(0.0) != 0.0)
61 
    abort();
62 
  if (test2_1(-1.0) != 1.0)
63 
    abort();
64 
  if (test2_1(-2.0) != 4.0)
65 
    abort();
66 
 
67 
  if (test2_2(1.0) != 1.0)
68 
    abort();
69 
  if (test2_2(2.0) != 4.0)
70 
    abort();
71 
  if (test2_2(0.0) != 0.0)
72 
    abort();
73 
  if (test2_2(-1.0) != 1.0)
74 
    abort();
75 
  if (test2_2(-2.0) != 4.0)
76 
    abort();
77 
 
78 
  if (test2_3(1.0) != 1.0)
79 
    abort();
80 
  if (test2_3(2.0) != 4.0)
81 
    abort();
82 
  if (test2_3(0.0) != 0.0)
83 
    abort();
84 
  if (test2_3(-1.0) != 1.0)
85 
    abort();
86 
  if (test2_3(2.0) != 4.0)
87 
    abort();
88 
 
89 
  if (test3_1(1.0) != 1.0)
90 
    abort();
91 
  if (test3_1(2.0) != 8.0)
92 
    abort();
93 
  if (test3_1(0.0) != 0.0)
94 
    abort();
95 
  if (test3_1(-1.0) != -1.0)
96 
    abort();
97 
  if (test3_1(-2.0) != -8.0)
98 
    abort();
99 
 
100 
  if (test3_2(1.0) != -1.0)
101 
    abort();
102 
  if (test3_2(2.0) != -8.0)
103 
    abort();
104 
  if (test3_2(0.0) != -0.0)
105 
    abort();
106 
  if (test3_2(-1.0) != 1.0)
107 
    abort();
108 
  if (test3_2(-2.0) != 8.0)
109 
    abort();
110 
 
111 
  if (test3_3(1.0) != 1.0)
112 
    abort();
113 
  if (test3_3(2.0) != 8.0)
114 
    abort();
115 
  if (test3_3(0.0) != 0.0)
116 
    abort();
117 
  if (test3_3(-1.0) != 1.0)
118 
    abort();
119 
  if (test3_3(-2.0) != 8.0)
120 
    abort();
121 
 
122 
  if (test6_1(1.0) != 1.0)
123 
    abort();
124 
  if (test6_1(2.0) != 64.0)
125 
    abort();
126 
  if (test6_1(0.0) != 0.0)
127 
    abort();
128 
  if (test6_1(-1.0) != 1.0)
129 
    abort();
130 
  if (test6_1(-2.0) != 64.0)
131 
    abort();
132 
 
133 
  if (test6_2(1.0) != 1.0)
134 
    abort();
135 
  if (test6_2(2.0) != 64.0)
136 
    abort();
137 
  if (test6_2(0.0) != 0.0)
138 
    abort();
139 
  if (test6_2(-1.0) != 1.0)
140 
    abort();
141 
  if (test6_2(-2.0) != 64.0)
142 
    abort();
143 
 
144 
  if (test6_3(1.0) != 1.0)
145 
    abort();
146 
  if (test6_3(2.0) != 64.0)
147 
    abort();
148 
  if (test6_3(0.0) != 0.0)
149 
    abort();
150 
  if (test6_3(-1.0) != 1.0)
151 
    abort();
152 
  if (test6_3(-2.0) != 64.0)
153 
    abort();
154 
 
155 
  return 0;
156 
}
157 
 

powered by: WebSVN 2.1.0

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