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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [c-c++-common/] [dfp/] [func-scalar.c] - Blame information for rev 686

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 686 jeremybenn 
/* C99 6.5.2.2 Function calls.
2 
   Test scalar passing and return values involving decimal floating
3 
   point types.  */
4 
 
5 
#include "dfp-dbg.h"
6 
 
7 
/* A handful of functions that return their Nth _Decimal32
8 
   argument.  */
9 
 
10 
_Decimal32
11 
arg0_32 (_Decimal32 arg0, _Decimal32 arg1, _Decimal32 arg2,
12 
         _Decimal32 arg3, _Decimal32 arg4, _Decimal32 arg5)
13 
{
14 
  return arg0;
15 
}
16 
 
17 
_Decimal32
18 
arg1_32 (_Decimal32 arg0, _Decimal32 arg1, _Decimal32 arg2,
19 
         _Decimal32 arg3, _Decimal32 arg4, _Decimal32 arg5)
20 
{
21 
  return arg1;
22 
}
23 
 
24 
_Decimal32
25 
arg2_32 (_Decimal32 arg0, _Decimal32 arg1, _Decimal32 arg2,
26 
         _Decimal32 arg3, _Decimal32 arg4, _Decimal32 arg5)
27 
{
28 
  return arg2;
29 
}
30 
 
31 
_Decimal32
32 
arg3_32 (_Decimal32 arg0, _Decimal32 arg1, _Decimal32 arg2,
33 
         _Decimal32 arg3, _Decimal32 arg4, _Decimal32 arg5)
34 
{
35 
  return arg3;
36 
}
37 
 
38 
_Decimal32
39 
arg4_32 (_Decimal32 arg0, _Decimal32 arg1, _Decimal32 arg2,
40 
         _Decimal32 arg3, _Decimal32 arg4, _Decimal32 arg5)
41 
{
42 
  return arg4;
43 
}
44 
 
45 
_Decimal32
46 
arg5_32 (_Decimal32 arg0, _Decimal32 arg1, _Decimal32 arg2,
47 
         _Decimal32 arg3, _Decimal32 arg4, _Decimal32 arg5)
48 
{
49 
  return arg5;
50 
}
51 
 
52 
 
53 
/* A handful of functions that return their Nth _Decimal64
54 
   argument.  */
55 
 
56 
_Decimal64
57 
arg0_64 (_Decimal64 arg0, _Decimal64 arg1, _Decimal64 arg2,
58 
         _Decimal64 arg3, _Decimal64 arg4, _Decimal64 arg5)
59 
{
60 
  return arg0;
61 
}
62 
 
63 
_Decimal64
64 
arg1_64 (_Decimal64 arg0, _Decimal64 arg1, _Decimal64 arg2,
65 
         _Decimal64 arg3, _Decimal64 arg4, _Decimal64 arg5)
66 
{
67 
  return arg1;
68 
}
69 
 
70 
_Decimal64
71 
arg2_64 (_Decimal64 arg0, _Decimal64 arg1, _Decimal64 arg2,
72 
         _Decimal64 arg3, _Decimal64 arg4, _Decimal64 arg5)
73 
{
74 
  return arg2;
75 
}
76 
 
77 
_Decimal64
78 
arg3_64 (_Decimal64 arg0, _Decimal64 arg1, _Decimal64 arg2,
79 
         _Decimal64 arg3, _Decimal64 arg4, _Decimal64 arg5)
80 
{
81 
  return arg3;
82 
}
83 
 
84 
_Decimal64
85 
arg4_64 (_Decimal64 arg0, _Decimal64 arg1, _Decimal64 arg2,
86 
         _Decimal64 arg3, _Decimal64 arg4, _Decimal64 arg5)
87 
{
88 
  return arg4;
89 
}
90 
 
91 
_Decimal64
92 
arg5_64 (_Decimal64 arg0, _Decimal64 arg1, _Decimal64 arg2,
93 
         _Decimal64 arg3, _Decimal64 arg4, _Decimal64 arg5)
94 
{
95 
  return arg5;
96 
}
97 
 
98 
 
99 
/* A handful of functions that return their Nth _Decimal128
100 
   argument.  */
101 
 
102 
_Decimal128
103 
arg0_128 (_Decimal128 arg0, _Decimal128 arg1, _Decimal128 arg2,
104 
         _Decimal128 arg3, _Decimal128 arg4, _Decimal128 arg5)
105 
{
106 
  return arg0;
107 
}
108 
 
109 
_Decimal128
110 
arg1_128 (_Decimal128 arg0, _Decimal128 arg1, _Decimal128 arg2,
111 
         _Decimal128 arg3, _Decimal128 arg4, _Decimal128 arg5)
112 
{
113 
  return arg1;
114 
}
115 
 
116 
_Decimal128
117 
arg2_128 (_Decimal128 arg0, _Decimal128 arg1, _Decimal128 arg2,
118 
         _Decimal128 arg3, _Decimal128 arg4, _Decimal128 arg5)
119 
{
120 
  return arg2;
121 
}
122 
 
123 
_Decimal128
124 
arg3_128 (_Decimal128 arg0, _Decimal128 arg1, _Decimal128 arg2,
125 
         _Decimal128 arg3, _Decimal128 arg4, _Decimal128 arg5)
126 
{
127 
  return arg3;
128 
}
129 
 
130 
_Decimal128
131 
arg4_128 (_Decimal128 arg0, _Decimal128 arg1, _Decimal128 arg2,
132 
         _Decimal128 arg3, _Decimal128 arg4, _Decimal128 arg5)
133 
{
134 
  return arg4;
135 
}
136 
 
137 
_Decimal128
138 
arg5_128 (_Decimal128 arg0, _Decimal128 arg1, _Decimal128 arg2,
139 
         _Decimal128 arg3, _Decimal128 arg4, _Decimal128 arg5)
140 
{
141 
  return arg5;
142 
}
143 
 
144 
 
145 
 
146 
int
147 
main ()
148 
{
149 
  /* _Decimal32 variants.  */
150 
  if (arg0_32 (0.0df, 1.0df, 2.0df, 3.0df, 4.0df, 5.0df) != 0.0df)
151 
    FAILURE
152 
  if (arg1_32 (0.0df, 1.0df, 2.0df, 3.0df, 4.0df, 5.0df) != 1.0df)
153 
    FAILURE
154 
  if (arg2_32 (0.0df, 1.0df, 2.0df, 3.0df, 4.0df, 5.0df) != 2.0df)
155 
    FAILURE
156 
  if (arg3_32 (0.0df, 1.0df, 2.0df, 3.0df, 4.0df, 5.0df) != 3.0df)
157 
    FAILURE
158 
  if (arg4_32 (0.0df, 1.0df, 2.0df, 3.0df, 4.0df, 5.0df) != 4.0df)
159 
    FAILURE
160 
  if (arg5_32 (0.0df, 1.0df, 2.0df, 3.0df, 4.0df, 5.0df) != 5.0df)
161 
    FAILURE
162 
 
163 
  /* _Decimal64 variants.  */
164 
  if (arg0_64 (0.0dd, 1.0dd, 2.0dd, 3.0dd, 4.0dd, 5.0dd) != 0.0dd)
165 
    FAILURE
166 
  if (arg1_64 (0.0dd, 1.0dd, 2.0dd, 3.0dd, 4.0dd, 5.0dd) != 1.0dd)
167 
    FAILURE
168 
  if (arg2_64 (0.0dd, 1.0dd, 2.0dd, 3.0dd, 4.0dd, 5.0dd) != 2.0dd)
169 
    FAILURE
170 
  if (arg3_64 (0.0dd, 1.0dd, 2.0dd, 3.0dd, 4.0dd, 5.0dd) != 3.0dd)
171 
    FAILURE
172 
  if (arg4_64 (0.0dd, 1.0dd, 2.0dd, 3.0dd, 4.0dd, 5.0dd) != 4.0dd)
173 
    FAILURE
174 
  if (arg5_64 (0.0dd, 1.0dd, 2.0dd, 3.0dd, 4.0dd, 5.0dd) != 5.0dd)
175 
    FAILURE
176 
 
177 
  /* _Decimal128 variants.  */
178 
  if (arg0_128 (0.0dl, 1.0dl, 2.0dl, 3.0dl, 4.0dl, 5.0dl) != 0.0dl)
179 
    FAILURE
180 
  if (arg1_128 (0.0dl, 1.0dl, 2.0dl, 3.0dl, 4.0dl, 5.0dl) != 1.0dl)
181 
    FAILURE
182 
  if (arg2_128 (0.0dl, 1.0dl, 2.0dl, 3.0dl, 4.0dl, 5.0dl) != 2.0dl)
183 
    FAILURE
184 
  if (arg3_128 (0.0dl, 1.0dl, 2.0dl, 3.0dl, 4.0dl, 5.0dl) != 3.0dl)
185 
    FAILURE
186 
  if (arg4_128 (0.0dl, 1.0dl, 2.0dl, 3.0dl, 4.0dl, 5.0dl) != 4.0dl)
187 
    FAILURE
188 
  if (arg5_128 (0.0dl, 1.0dl, 2.0dl, 3.0dl, 4.0dl, 5.0dl) != 5.0dl)
189 
    FAILURE
190 
 
191 
  FINISH
192 
}

powered by: WebSVN 2.1.0

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