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
      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  }