URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gcc.dg/] [dfp/] [operator-logical.c] - Rev 149
Go to most recent revision | Compare with Previous | Blame | View Log
/* { dg-options "-std=gnu99" } */ /* C99 Logical AND operator. C99 Logical OR operator. Test with decimal float operands. */ extern void abort (void); #define OPERATE(OPRD1,OPRT,OPRD2,RLT) \ do \ { \ if (( (OPRD1) OPRT (OPRD2) )!= RLT) \ 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; }
Go to most recent revision | Compare with Previous | Blame | View Log