1 /* C99 6.5.16 Assignment operators.
2 Verify the compound assignment operator for decimal float types,
3 using it with other decimal float types, integers, and other binary
4 float types cast to decimal float types. */
5
6 #include "dfp-dbg.h"
7
8 #define OPERATE(OPRD1,OPRT,OPRD2,RLT) \
9 if (( OPRD1 OPRT OPRD2 )!= RLT) \
10 FAILURE
11
12 #define DECIMAL_COMPOUND_ASSIGNMENT(TYPE, OPRD) \
13 { \
14 _Decimal##TYPE d = OPRD; \
15 OPERATE(d,+=,1,(OPRD + 1)); \
16 d = OPRD; \
17 OPERATE(d,+=,0,OPRD); \
18 d = OPRD; \
19 OPERATE(d,+=,(-1),(OPRD - 1)); \
20 d = OPRD; \
21 OPERATE(d,+=,d32a,(OPRD + d32a)); \
22 d = OPRD; \
23 OPERATE(d,+=,d64a,(OPRD + d64a)); \
24 d = OPRD; \
25 OPERATE(d,+=,d128a,(OPRD + d128a)); \
26 d = OPRD; \
27 OPERATE(d,+=,(_Decimal##TYPE)1.1,(OPRD + (_Decimal##TYPE)1.1)); \
28 d = OPRD; \
29 OPERATE(d,+=,(_Decimal##TYPE)2.2f,(OPRD + (_Decimal##TYPE)2.2f)); \
30 d = OPRD; \
31 OPERATE(d,-=,1,(OPRD - 1)); \
32 d = OPRD; \
33 OPERATE(d,-=,0,OPRD); \
34 d = OPRD; \
35 OPERATE(d,-=,(-1),(OPRD + 1)); \
36 d = OPRD; \
37 OPERATE(d,-=,d32a,OPRD-d32a); \
38 d = OPRD; \
39 OPERATE(d,-=,d64a,OPRD-d64a); \
40 d = OPRD; \
41 OPERATE(d,-=,d128a,OPRD-d128a); \
42 }
43
44 int
main()45 main ()
46 {
47 _Decimal32 d32 = 1.23456df, d32a = 1.2df;
48 _Decimal64 d64 = 23.456789dd, d64a = 2.8dd;
49 _Decimal128 d128 = 345.67890123456789dl, d128a = 4.7dl;
50
51 DECIMAL_COMPOUND_ASSIGNMENT(32, d32);
52 DECIMAL_COMPOUND_ASSIGNMENT(64, d64);
53 DECIMAL_COMPOUND_ASSIGNMENT(128, d128);
54
55 FINISH
56 }
57