URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.c-torture/] [execute/] [ieee/] [fp-cmp-2.c] - Rev 774
Go to most recent revision | Compare with Previous | Blame | View Log
#ifndef SIGNAL_SUPPRESS #include <signal.h> #endif float fnan = 1.0f/0.0f - 1.0f/0.0f; float x = 1.0f; void leave () { exit (0); } main () { #if ! defined (__vax__) && ! defined (_CRAY) /* Move this line earlier, for architectures (like alpha) that issue SIGFPE on the first comparisons. */ #ifndef SIGNAL_SUPPRESS /* Some machines catches a SIGFPE when a NaN is compared. Let this test succeed o such machines. */ signal (SIGFPE, leave); #endif /* NaN is an IEEE unordered operand. All these test should be false. */ if (fnan == fnan) abort (); if (fnan != x) x = 1.0; else abort (); if (fnan < x) abort (); if (fnan > x) abort (); if (fnan <= x) abort (); if (fnan >= x) abort (); if (fnan == x) abort (); #endif exit (0); }
Go to most recent revision | Compare with Previous | Blame | View Log