blob: 710538d467bd5827b4a37d4a4d50e565207b5af9 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
|
/* N1150 5.2 Conversions among decimal floating types and between
decimal floating types and generic floating types.
C99 6.3.1.5(4) Conversions, arithmetic operands, real floating types. */
/* Long double isn't supported yet at runtime, so disable those checks. */
#include "dfp-dbg.h"
static int skip_long_double;
volatile _Decimal32 d32;
volatile _Decimal64 d64;
volatile _Decimal128 d128;
volatile float sf;
volatile double df;
volatile long double tf;
int
main ()
{
/* Conversions from decimal float to binary float. */
if (sizeof (long double) == sizeof (double))
skip_long_double = 1;
/* Conversions from _Decimal32. */
d32 = 2.0df;
sf = d32;
if (sf != 2.0f)
FAILURE
df = d32;
if (df != 2.0)
FAILURE
if (skip_long_double == 0)
{
tf = d32;
if (tf != 2.0l)
FAILURE
}
/* Conversions from _Decimal64. */
d64 = -7.0dd;
sf = d64;
if (sf != -7.0f)
FAILURE
df = d64;
if (df != -7.0)
FAILURE
if (skip_long_double == 0)
{
tf = d64;
if (tf != -7.0l)
FAILURE
}
/* Conversions from _Decimal128. */
d128 = 30.0dl;
sf = d128;
if (sf != 30.0f)
FAILURE
df = d128;
if (df != 30.0)
FAILURE
df = d128;
if (df != 30.0l)
FAILURE
/* Conversions from binary float to decimal float. */
sf = 30.0f;
d32 = sf;
if (d32 != 30.0df)
FAILURE
d64 = sf;
if (d64 != 30.0dd)
FAILURE
df = -2.0;
d32 = df;
if (d32 != -2.0df)
FAILURE
d64 = df;
if (d64 != -2.0dd)
FAILURE
d128 = df;
if (d128 != -2.0dl)
FAILURE
sf = 30.0f;
d128 = sf;
if (d128 != 30.0dl)
FAILURE
if (skip_long_double == 0)
{
tf = -22.0l;
d32 = tf;
if (d32 != -22.0df)
FAILURE
d64 = tf;
if (d64 != -22.0dd)
FAILURE
d128 = tf;
if (d128 != -22.0dl)
FAILURE
}
/* 2**(-11) = 0.00048828125. */
d128 = 0.000488281251dl;
sf = d128;
if (sf != 0.00048828125f)
FAILURE
/* 2**(-25) = 0.298023223876953125E-7. */
d128 = 2.98023223876953125E-8dl;
df = d128;
if (df < (2.9802322387695312e-08 - 0.00000000001)
|| df > (2.9802322387695312e-08 + 0.00000000001))
FAILURE
FINISH
}
|
