OpenCores
URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [c-c++-common/] [dfp/] [func-array.c] - Blame information for rev 295

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 295 jeremybenn 
/* C99 6.5.2.2 Function calls.
2 
   Test passing array elements involving decimal floating point types. */
3 
 
4 
#include "dfp-dbg.h"
5 
 
6 
/* A handful of functions that return the Nth _Decimal32 argument of
7 
   an incoming array.  */
8 
 
9 
_Decimal32
10 
arg0_32 (_Decimal32 args[])
11 
{
12 
  return args[0];
13 
}
14 
 
15 
_Decimal32
16 
arg1_32 (_Decimal32 args[])
17 
{
18 
  return args[1];
19 
}
20 
 
21 
_Decimal32
22 
arg2_32 (_Decimal32 args[])
23 
{
24 
  return args[2];
25 
}
26 
 
27 
_Decimal32
28 
arg3_32 (_Decimal32 args[])
29 
{
30 
  return args[3];
31 
}
32 
 
33 
_Decimal32
34 
arg4_32 (_Decimal32 args[])
35 
{
36 
  return args[4];
37 
}
38 
 
39 
_Decimal32
40 
arg5_32 (_Decimal32 args[])
41 
{
42 
  return args[5];
43 
}
44 
 
45 
 
46 
/* A handful of functions that return the Nth _Decimal64 argument of
47 
   an incoming array.  */
48 
 
49 
_Decimal64
50 
arg0_64 (_Decimal64 args[])
51 
{
52 
  return args[0];
53 
}
54 
 
55 
_Decimal64
56 
arg1_64 (_Decimal64 args[])
57 
{
58 
  return args[1];
59 
}
60 
 
61 
_Decimal64
62 
arg2_64 (_Decimal64 args[])
63 
{
64 
  return args[2];
65 
}
66 
 
67 
_Decimal64
68 
arg3_64 (_Decimal64 args[])
69 
{
70 
  return args[3];
71 
}
72 
 
73 
_Decimal64
74 
arg4_64 (_Decimal64 args[])
75 
{
76 
  return args[4];
77 
}
78 
 
79 
_Decimal64
80 
arg5_64 (_Decimal64 args[])
81 
{
82 
  return args[5];
83 
}
84 
 
85 
 
86 
/* A handful of functions that return the Nth _Decimal128 argument of
87 
   an incoming array.  */
88 
 
89 
_Decimal128
90 
arg0_128 (_Decimal128 args[])
91 
{
92 
  return args[0];
93 
}
94 
 
95 
_Decimal128
96 
arg1_128 (_Decimal128 args[])
97 
{
98 
  return args[1];
99 
}
100 
 
101 
_Decimal128
102 
arg2_128 (_Decimal128 args[])
103 
{
104 
  return args[2];
105 
}
106 
 
107 
_Decimal128
108 
arg3_128 (_Decimal128 args[])
109 
{
110 
  return args[3];
111 
}
112 
 
113 
_Decimal128
114 
arg4_128 (_Decimal128 args[])
115 
{
116 
  return args[4];
117 
}
118 
 
119 
_Decimal128
120 
arg5_128 (_Decimal128 args[])
121 
{
122 
  return args[5];
123 
}
124 
 
125 
 
126 
int main()
127 
{
128 
  _Decimal32 d32[] = { 0.0df, 1.0df, 2.0df, 3.0df, 4.0df, 5.0df };
129 
  _Decimal64 d64[] = { 0.0dd, 1.0dd, 2.0dd, 3.0dd, 4.0dd, 5.0dd };
130 
  _Decimal128 d128[] = { 0.0dl, 1.0dl, 2.0dl, 3.0dl, 4.0dl, 5.0dl };
131 
 
132 
  /* _Decimal32 variants.  */
133 
  if (arg0_32 (d32) != 0.0df) FAILURE
134 
  if (arg1_32 (d32) != 1.0df) FAILURE
135 
  if (arg2_32 (d32) != 2.0df) FAILURE
136 
  if (arg3_32 (d32) != 3.0df) FAILURE
137 
  if (arg4_32 (d32) != 4.0df) FAILURE
138 
  if (arg5_32 (d32) != 5.0df) FAILURE
139 
 
140 
  /* _Decimal64 variants.  */
141 
  if (arg0_64 (d64) != 0.0dd) FAILURE
142 
  if (arg1_64 (d64) != 1.0dd) FAILURE
143 
  if (arg2_64 (d64) != 2.0dd) FAILURE
144 
  if (arg3_64 (d64) != 3.0dd) FAILURE
145 
  if (arg4_64 (d64) != 4.0dd) FAILURE
146 
  if (arg5_64 (d64) != 5.0dd) FAILURE
147 
 
148 
  /* _Decimal128 variants.  */
149 
  if (arg0_128 (d128) != 0.0dl) FAILURE
150 
  if (arg1_128 (d128) != 1.0dl) FAILURE
151 
  if (arg2_128 (d128) != 2.0dl) FAILURE
152 
  if (arg3_128 (d128) != 3.0dl) FAILURE
153 
  if (arg4_128 (d128) != 4.0dl) FAILURE
154 
  if (arg5_128 (d128) != 5.0dl) FAILURE
155 
 
156 
  FINISH
157 
}

powered by: WebSVN 2.1.0

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