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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.dg/] [builtins-46.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) 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 
}

powered by: WebSVN 2.1.0

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