blob: c784468c77aef0b8c13ca8467e8ba3271eb32d41 [file] [log] [blame]
 /* C99 Logical AND operator. C99 Logical OR operator. Test with decimal float operands. */ #include "dfp-dbg.h" #define OPERATE(OPRD1,OPRT,OPRD2,RLT) \ do \ { \ if (( (OPRD1) OPRT (OPRD2) )!= RLT) \ __builtin_abort (); \ } while (0) #define DECIMAL_LOGICAL_OR(OPRD) \ do \ { \ OPRD = 1.0; \ OPERATE(1,||,OPRD,1); \ OPERATE(0,||,OPRD,1); \ OPERATE(OPRD,||,1,1); \ OPERATE(OPRD,||,0,1); \ OPRD = 0.0; \ OPERATE(1,||,OPRD,1); \ OPERATE(0,||,OPRD,0); \ OPERATE(OPRD,||,1,1); \ OPERATE(OPRD,||,0,0); \ } while (0) #define DECIMAL_LOGICAL_AND(OPRD) \ do \ { \ OPRD = 1.0; \ OPERATE(1,&&,OPRD,1); \ OPERATE(0,&&,OPRD,0); \ OPERATE(OPRD,&&,1,1); \ OPERATE(OPRD,&&,0,0); \ OPRD = 0.0; \ OPERATE(1,&&,OPRD,0); \ OPERATE(0,&&,OPRD,0); \ OPERATE(OPRD,&&,1,0); \ OPERATE(OPRD,&&,0,0); \ } while (0) int main () { _Decimal32 d32; _Decimal64 d64; _Decimal128 d128; /* C99 Section 6.5.{13,14} Logical operator. Constraints Each of the operands shall have scalar type. DFP types would obey this. */ DECIMAL_LOGICAL_OR (d32); DECIMAL_LOGICAL_AND (d32); DECIMAL_LOGICAL_OR (d64); DECIMAL_LOGICAL_AND (d64); DECIMAL_LOGICAL_OR (d128); DECIMAL_LOGICAL_AND (d128); return 0; }