blob: b2e8ca87b164f70677c1edf2014022094a3da24a (
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
132
133
134
135
136
137
138
139
140
141
142
143
144
145
|
/* { dg-options "-std=gnu99" } */
/* 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. */
extern void abort (void);
static int failcnt;
static int skip_long_double;
/* Support compiling the test to report individual failures; default is
to abort as soon as a check fails. */
#ifdef DBG
#include <stdio.h>
#define FAILURE { printf ("failed at line %d\n", __LINE__); failcnt++; }
#else
#define FAILURE abort ();
#endif
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
if (failcnt != 0)
abort ();
return 0;
}
|
