URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Subversion Repositories openrisc_me
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [c-c++-common/] [dfp/] [convert-bfp-11.c] - Rev 414
Go to most recent revision | Compare with Previous | Blame | View Log
/* { dg-skip-if "" { ! "powerpc*-*-linux*" } { "*" } { "" } } */ /* Test decimal float conversions to and from IBM 128-bit long double. Checks are skipped at runtime if long double is not 128 bits. Don't force 128-bit long doubles because runtime support depends on glibc. */ #include "convert.h" volatile _Decimal32 sd; volatile _Decimal64 dd; volatile _Decimal128 td; volatile float sf; volatile double df; volatile long double tf; /* A value slightly less than DEC32_MAX can be converted in both directions. */ CONVERT_VALID (101, sd, tf, 9.999998e96df, 9.999998e96L, 1.e+81L) CONVERT_VALID (102, tf, sd, 9.999998e96L, 9.999998e96df, 0.df) /* A value slightly less than DBL_MAX can be converted in both directions. */ CONVERT_VALID (201, tf, dd, 1.79768e+308l, 1.79768e+308dd, 0.dd) CONVERT_VALID (202, dd, tf, 1.79768e+308dd, 1.79768e+308l, 2.e292l) CONVERT_VALID (203, tf, td, 1.79768e+308l, 1.79768e+308dl, 1.e292dl) CONVERT_VALID (204, td, tf, 1.79768e+308dl, 1.79768e+308l, 2.e292l) /* Check values that are too large for the result type. */ CONVERT_TO_PINF (301, dd, tf, 1.8e+308dd, l) CONVERT_TO_PINF (302, dd, tf, 9.9e+384dd, l) CONVERT_TO_PINF (303, td, tf, 1.8e+308dl, l) CONVERT_TO_PINF (304, td, tf, 9.9e+384dl, l) CONVERT_TO_PINF (311, tf, sd, 1.0e+97L, d32) CONVERT_TO_PINF (312, tf, sd, 1.6e+308L, d32) int main () { if (sizeof (long double) != 16) return 0; convert_101 (); convert_102 (); convert_201 (); convert_202 (); convert_203 (); convert_204 (); convert_301 (); convert_302 (); convert_303 (); convert_304 (); convert_311 (); convert_312 (); FINISH }
Go to most recent revision | Compare with Previous | Blame | View Log