URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gcc.dg/] [dfp/] [compare-rel-dfp.c] - Rev 149
Go to most recent revision | Compare with Previous | Blame | View Log
/* { dg-options "-std=gnu99 -O0" } */ /* C99 6.5.8 Relational operators. Compare decimal float values against variables of different types. */ extern void abort (void); static int failcnt; /* Support compiling the test to report individual failures; default is to abort as soon as a check fails. */ #ifdef DBG #include <stdio.h> #define FAILURE { printf ("failed at line %d\n", __LINE__); failcnt++; } #else #define FAILURE abort (); #endif _Decimal32 d32; _Decimal64 d64; _Decimal128 d128; /* Use some typedefs of decimal float types, too. */ typedef _Decimal32 SDtype; typedef _Decimal64 DDtype; typedef _Decimal128 TDtype; SDtype d32b; DDtype d64b; TDtype d128b; void inits (void) { d32 = 1.0df; d64 = 3.0dd; d128 = 5.0dl; d32b = -1.0df; d64b = -4.0dd; d128b = -6.0dl; } void compare_dfp (void) { if ((d32 > d64) != 0) FAILURE if ((d32 >= d128b) != 1) FAILURE if ((d64 < d32) != 0) FAILURE if ((d64 <= d128) != 1) FAILURE if ((d128 > d32) != 1) FAILURE if ((d128 >= d64) != 1) FAILURE } int main () { inits (); compare_dfp (); if (failcnt) abort (); return 0; }
Go to most recent revision | Compare with Previous | Blame | View Log