URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.dg/] [torture/] [pr47473.c] - Rev 801
Go to most recent revision | Compare with Previous | Blame | View Log
/* PR c/47473 */ /* { dg-do run } */ /* { dg-options "-std=c99" } */ int main (void) { long double _Complex w = 0.2L - 0.3iL; w = w * (0.3L - (0.0F + 1.0iF) * 0.9L); if (__builtin_fabsl (__real__ w + 0.21L) > 0.001L || __builtin_fabsl (__imag__ w + 0.27L) > 0.001L) __builtin_abort (); return 0; }
Go to most recent revision | Compare with Previous | Blame | View Log