1 /* 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
arg0_32(_Decimal32 arg0,_Decimal32 arg1,_Decimal32 arg2,_Decimal32 arg3,_Decimal32 arg4,_Decimal32 arg5)11 arg0_32 (_Decimal32 arg0, _Decimal32 arg1, _Decimal32 arg2,
12 	 _Decimal32 arg3, _Decimal32 arg4, _Decimal32 arg5)
13 {
14   return arg0;
15 }
16 
17 _Decimal32
arg1_32(_Decimal32 arg0,_Decimal32 arg1,_Decimal32 arg2,_Decimal32 arg3,_Decimal32 arg4,_Decimal32 arg5)18 arg1_32 (_Decimal32 arg0, _Decimal32 arg1, _Decimal32 arg2,
19 	 _Decimal32 arg3, _Decimal32 arg4, _Decimal32 arg5)
20 {
21   return arg1;
22 }
23 
24 _Decimal32
arg2_32(_Decimal32 arg0,_Decimal32 arg1,_Decimal32 arg2,_Decimal32 arg3,_Decimal32 arg4,_Decimal32 arg5)25 arg2_32 (_Decimal32 arg0, _Decimal32 arg1, _Decimal32 arg2,
26 	 _Decimal32 arg3, _Decimal32 arg4, _Decimal32 arg5)
27 {
28   return arg2;
29 }
30 
31 _Decimal32
arg3_32(_Decimal32 arg0,_Decimal32 arg1,_Decimal32 arg2,_Decimal32 arg3,_Decimal32 arg4,_Decimal32 arg5)32 arg3_32 (_Decimal32 arg0, _Decimal32 arg1, _Decimal32 arg2,
33 	 _Decimal32 arg3, _Decimal32 arg4, _Decimal32 arg5)
34 {
35   return arg3;
36 }
37 
38 _Decimal32
arg4_32(_Decimal32 arg0,_Decimal32 arg1,_Decimal32 arg2,_Decimal32 arg3,_Decimal32 arg4,_Decimal32 arg5)39 arg4_32 (_Decimal32 arg0, _Decimal32 arg1, _Decimal32 arg2,
40 	 _Decimal32 arg3, _Decimal32 arg4, _Decimal32 arg5)
41 {
42   return arg4;
43 }
44 
45 _Decimal32
arg5_32(_Decimal32 arg0,_Decimal32 arg1,_Decimal32 arg2,_Decimal32 arg3,_Decimal32 arg4,_Decimal32 arg5)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
arg0_64(_Decimal64 arg0,_Decimal64 arg1,_Decimal64 arg2,_Decimal64 arg3,_Decimal64 arg4,_Decimal64 arg5)57 arg0_64 (_Decimal64 arg0, _Decimal64 arg1, _Decimal64 arg2,
58 	 _Decimal64 arg3, _Decimal64 arg4, _Decimal64 arg5)
59 {
60   return arg0;
61 }
62 
63 _Decimal64
arg1_64(_Decimal64 arg0,_Decimal64 arg1,_Decimal64 arg2,_Decimal64 arg3,_Decimal64 arg4,_Decimal64 arg5)64 arg1_64 (_Decimal64 arg0, _Decimal64 arg1, _Decimal64 arg2,
65 	 _Decimal64 arg3, _Decimal64 arg4, _Decimal64 arg5)
66 {
67   return arg1;
68 }
69 
70 _Decimal64
arg2_64(_Decimal64 arg0,_Decimal64 arg1,_Decimal64 arg2,_Decimal64 arg3,_Decimal64 arg4,_Decimal64 arg5)71 arg2_64 (_Decimal64 arg0, _Decimal64 arg1, _Decimal64 arg2,
72 	 _Decimal64 arg3, _Decimal64 arg4, _Decimal64 arg5)
73 {
74   return arg2;
75 }
76 
77 _Decimal64
arg3_64(_Decimal64 arg0,_Decimal64 arg1,_Decimal64 arg2,_Decimal64 arg3,_Decimal64 arg4,_Decimal64 arg5)78 arg3_64 (_Decimal64 arg0, _Decimal64 arg1, _Decimal64 arg2,
79 	 _Decimal64 arg3, _Decimal64 arg4, _Decimal64 arg5)
80 {
81   return arg3;
82 }
83 
84 _Decimal64
arg4_64(_Decimal64 arg0,_Decimal64 arg1,_Decimal64 arg2,_Decimal64 arg3,_Decimal64 arg4,_Decimal64 arg5)85 arg4_64 (_Decimal64 arg0, _Decimal64 arg1, _Decimal64 arg2,
86 	 _Decimal64 arg3, _Decimal64 arg4, _Decimal64 arg5)
87 {
88   return arg4;
89 }
90 
91 _Decimal64
arg5_64(_Decimal64 arg0,_Decimal64 arg1,_Decimal64 arg2,_Decimal64 arg3,_Decimal64 arg4,_Decimal64 arg5)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
arg0_128(_Decimal128 arg0,_Decimal128 arg1,_Decimal128 arg2,_Decimal128 arg3,_Decimal128 arg4,_Decimal128 arg5)103 arg0_128 (_Decimal128 arg0, _Decimal128 arg1, _Decimal128 arg2,
104 	 _Decimal128 arg3, _Decimal128 arg4, _Decimal128 arg5)
105 {
106   return arg0;
107 }
108 
109 _Decimal128
arg1_128(_Decimal128 arg0,_Decimal128 arg1,_Decimal128 arg2,_Decimal128 arg3,_Decimal128 arg4,_Decimal128 arg5)110 arg1_128 (_Decimal128 arg0, _Decimal128 arg1, _Decimal128 arg2,
111 	 _Decimal128 arg3, _Decimal128 arg4, _Decimal128 arg5)
112 {
113   return arg1;
114 }
115 
116 _Decimal128
arg2_128(_Decimal128 arg0,_Decimal128 arg1,_Decimal128 arg2,_Decimal128 arg3,_Decimal128 arg4,_Decimal128 arg5)117 arg2_128 (_Decimal128 arg0, _Decimal128 arg1, _Decimal128 arg2,
118 	 _Decimal128 arg3, _Decimal128 arg4, _Decimal128 arg5)
119 {
120   return arg2;
121 }
122 
123 _Decimal128
arg3_128(_Decimal128 arg0,_Decimal128 arg1,_Decimal128 arg2,_Decimal128 arg3,_Decimal128 arg4,_Decimal128 arg5)124 arg3_128 (_Decimal128 arg0, _Decimal128 arg1, _Decimal128 arg2,
125 	 _Decimal128 arg3, _Decimal128 arg4, _Decimal128 arg5)
126 {
127   return arg3;
128 }
129 
130 _Decimal128
arg4_128(_Decimal128 arg0,_Decimal128 arg1,_Decimal128 arg2,_Decimal128 arg3,_Decimal128 arg4,_Decimal128 arg5)131 arg4_128 (_Decimal128 arg0, _Decimal128 arg1, _Decimal128 arg2,
132 	 _Decimal128 arg3, _Decimal128 arg4, _Decimal128 arg5)
133 {
134   return arg4;
135 }
136 
137 _Decimal128
arg5_128(_Decimal128 arg0,_Decimal128 arg1,_Decimal128 arg2,_Decimal128 arg3,_Decimal128 arg4,_Decimal128 arg5)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
main()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 }
193