|
111
|
1 /* Copyright (C) 2004 Free Software Foundation.
|
|
|
2
|
|
|
3 Check that rint, rintf, rintl, lrint, lrintf, lrintl,
|
|
|
4 llrint, llrintf, llrintl, floor, floorf, floorl,
|
|
|
5 ceil, ceilf, ceill, trunc, truncf, truncl,
|
|
|
6 nearbyint, nearbyintf and nearbyintl
|
|
|
7 built-in functions compile.
|
|
|
8
|
|
|
9 Written by Uros Bizjak, 25th Aug 2004. */
|
|
|
10
|
|
|
11 /* { dg-do compile } */
|
|
|
12 /* { dg-options "-O2 -ffast-math" } */
|
|
|
13
|
|
|
14 extern double rint(double);
|
|
|
15 extern long int lrint(double);
|
|
|
16 extern long long int llrint(double);
|
|
|
17 extern double floor(double);
|
|
|
18 extern double ceil(double);
|
|
|
19 extern double trunc(double);
|
|
|
20 extern double nearbyint(double);
|
|
|
21
|
|
|
22 extern float rintf(float);
|
|
|
23 extern long int lrintf(float);
|
|
|
24 extern long long int llrintf(float);
|
|
|
25 extern float floorf(float);
|
|
|
26 extern float ceilf(float);
|
|
|
27 extern float truncf(float);
|
|
|
28 extern float nearbyintf(float);
|
|
|
29
|
|
|
30 extern long double rintl(long double);
|
|
|
31 extern long int lrintl(long double);
|
|
|
32 extern long long int llrintl(long double);
|
|
|
33 extern long double floorl(long double);
|
|
|
34 extern long double ceill(long double);
|
|
|
35 extern long double truncl(long double);
|
|
|
36 extern long double nearbyintl(long double);
|
|
|
37
|
|
|
38
|
|
|
39 double test1(double x)
|
|
|
40 {
|
|
|
41 return rint(x);
|
|
|
42 }
|
|
|
43
|
|
|
44 long int test11(double x)
|
|
|
45 {
|
|
|
46 return lrint(x);
|
|
|
47 }
|
|
|
48
|
|
|
49 long long int test12(double x)
|
|
|
50 {
|
|
|
51 return llrint(x);
|
|
|
52 }
|
|
|
53
|
|
|
54 double test2(double x)
|
|
|
55 {
|
|
|
56 return floor(x);
|
|
|
57 }
|
|
|
58
|
|
|
59 double test3(double x)
|
|
|
60 {
|
|
|
61 return ceil(x);
|
|
|
62 }
|
|
|
63
|
|
|
64 double test4(double x)
|
|
|
65 {
|
|
|
66 return trunc(x);
|
|
|
67 }
|
|
|
68
|
|
|
69 double test5(double x)
|
|
|
70 {
|
|
|
71 return nearbyint(x);
|
|
|
72 }
|
|
|
73
|
|
|
74 float test1f(float x)
|
|
|
75 {
|
|
|
76 return rintf(x);
|
|
|
77 }
|
|
|
78
|
|
|
79 long int test11f(float x)
|
|
|
80 {
|
|
|
81 return lrintf(x);
|
|
|
82 }
|
|
|
83
|
|
|
84 long long int test12f(float x)
|
|
|
85 {
|
|
|
86 return llrintf(x);
|
|
|
87 }
|
|
|
88
|
|
|
89 float test2f(float x)
|
|
|
90 {
|
|
|
91 return floorf(x);
|
|
|
92 }
|
|
|
93
|
|
|
94 float test3f(float x)
|
|
|
95 {
|
|
|
96 return ceilf(x);
|
|
|
97 }
|
|
|
98
|
|
|
99 float test4f(float x)
|
|
|
100 {
|
|
|
101 return truncf(x);
|
|
|
102 }
|
|
|
103
|
|
|
104 float test5f(float x)
|
|
|
105 {
|
|
|
106 return nearbyintf(x);
|
|
|
107 }
|
|
|
108
|
|
|
109 long double test1l(long double x)
|
|
|
110 {
|
|
|
111 return rintl(x);
|
|
|
112 }
|
|
|
113
|
|
|
114 long int test11l(long double x)
|
|
|
115 {
|
|
|
116 return lrintl(x);
|
|
|
117 }
|
|
|
118
|
|
|
119 long long int test12l(long double x)
|
|
|
120 {
|
|
|
121 return llrintl(x);
|
|
|
122 }
|
|
|
123
|
|
|
124 long double test2l(long double x)
|
|
|
125 {
|
|
|
126 return floorl(x);
|
|
|
127 }
|
|
|
128
|
|
|
129 long double test3l(long double x)
|
|
|
130 {
|
|
|
131 return ceill(x);
|
|
|
132 }
|
|
|
133
|
|
|
134 long double test4l(long double x)
|
|
|
135 {
|
|
|
136 return truncl(x);
|
|
|
137 }
|
|
|
138
|
|
|
139 long double test5l(long double x)
|
|
|
140 {
|
|
|
141 return nearbyintl(x);
|
|
|
142 }
|
