URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc3/] [gcc/] [testsuite/] [gcc.c-torture/] [compile/] [pr35595.c] - Rev 297
Go to most recent revision | Compare with Previous | Blame | View Log
/* { dg-require-effective-target int32plus } */ typedef signed int __int32_t; typedef unsigned int __uint32_t; typedef union { float value; __uint32_t word; } ieee_float_shape_type; static const float two23 = 8.3886080000e+06; static const float pi = 3.1415927410e+00; static const float zero = 0.0000000000e+00; static float sin_pif (float x) { float y = 0; float z = 0; __int32_t n = 0; __int32_t ix = 0; do { ieee_float_shape_type gf_u = { 0 }; (ix) = gf_u.word; } while (0); if (z == y) { if (ix < 0x4b800000) { if (ix < 0x4b000000) z = y + two23; do { ieee_float_shape_type gf_u; gf_u.value = (z); (n) = gf_u.word; } while (0); } } if (n == 0) y = __kernel_sinf (pi * y, zero, 0); } float __ieee754_lgammaf_r (float x, int *signgamp) { float t = 0; __int32_t hx = 0; do { ieee_float_shape_type gf_u = { 0 }; (hx) = gf_u.word; } while (0); if (hx < 0) t = sin_pif (x); return 0; }
Go to most recent revision | Compare with Previous | Blame | View Log