blob: baff06bc175838802de359d22c435c442f09ae9c (
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
|
/* { dg-options "-O0" } */
/* N1150 5.4: Usual arithmetic conversions.
C99 6.3.1.8[1] (New).
Test arithmetic operators with different decimal float types, and
between decimal float types and integer types. */
#include "dfp-dbg.h"
volatile _Decimal32 d32a, d32b, d32c;
volatile _Decimal64 d64a, d64b, d64c;
volatile _Decimal128 d128a, d128b, d128c;
volatile int i;
void
init ()
{
d32b = 123.456e94df;
d64b = 12.3456789012345e383dd;
d128b = 12345.6789012345678901e4000dl;
d32c = 1.3df;
d64c = 1.2dd;
d128c = 1.1dl;
i = 2;
}
int
main ()
{
init ();
/* Usual arithmetic conversions between decimal float types; addition. */
d128a = d128b + d32b;
if (d128a < d128b)
FAILURE
d128a = d32b + d128b;
if (d128a < d128b)
FAILURE
d128a = d128b + d64b;
if (d128a < d128b)
FAILURE
d128a = d64b + d128b;
if (d128a < d128b)
FAILURE
d64a = d64b + d32b;
if (d64a < d64b)
FAILURE
d64a = d32b + d64b;
if (d64a < d64b)
FAILURE
/* Usual arithmetic conversions between decimal float types;
multiplication. */
d128a = d128b * d32c;
if (d128a < d128b)
FAILURE
d128a = d32c * d128b;
if (d128a < d128b)
FAILURE
d128a = d128b * d64c;
if (d128a < d128b)
FAILURE
d128a = d64c * d128b;
if (d128a < d128b)
FAILURE
d64a = d64b * d32c;
if (d64a < d64b)
FAILURE
d64a = d32c * d64b;
if (d64a < d64b)
FAILURE
/* Usual arithmetic conversions between decimal float and integer types. */
d32a = d32c + i;
if (d32a != d32c + 2.0df)
FAILURE
d32a = d32c - i;
if (d32a != d32c - 2.0df)
FAILURE
d32a = i * d32c;
if (d32a != d32c + d32c)
FAILURE
d32a = d32c / i;
if (d32a != d32c / 2.0df)
FAILURE
d64a = i + d64c;
if (d64a != d64c + 2.0dd)
FAILURE
d64a = d64c - i;
if (d64a != d64c - 2.0dd)
FAILURE
d64a = d64c * i;
if (d64a != d64c + d64c)
FAILURE
d64a = d64c / i;
if (d64a != d64c / 2.0dd)
FAILURE
d128a = d128c + i;
if (d128a != d128c + 2.0dl)
FAILURE
d128a = d128c - i;
if (d128a != d128c - 2.0dl)
FAILURE
d128a = i * d128c;
if (d128a != d128c + d128c)
FAILURE
d128a = d128c / i;
if (d128a != d128c / 2.0dl)
FAILURE
FINISH
}
|
