From be8b04496302184c6e8f04d6179f9c3afc50aeb6 Mon Sep 17 00:00:00 2001 From: YamaArashi Date: Wed, 6 Jan 2016 01:47:28 -0800 Subject: initial commit --- .../gcc.c-torture/execute/ieee/fp-cmp-1.c | 41 ++++++++++++++++++++++ 1 file changed, 41 insertions(+) create mode 100755 gcc/testsuite/gcc.c-torture/execute/ieee/fp-cmp-1.c (limited to 'gcc/testsuite/gcc.c-torture/execute/ieee/fp-cmp-1.c') diff --git a/gcc/testsuite/gcc.c-torture/execute/ieee/fp-cmp-1.c b/gcc/testsuite/gcc.c-torture/execute/ieee/fp-cmp-1.c new file mode 100755 index 0000000..4794efc --- /dev/null +++ b/gcc/testsuite/gcc.c-torture/execute/ieee/fp-cmp-1.c @@ -0,0 +1,41 @@ +#include + +double nan = 1.0/0.0 - 1.0/0.0; +double x = 1.0; + +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 (nan == nan) + abort (); + if (nan != x) + x = 1.0; + else + abort (); + + if (nan < x) + abort (); + if (nan > x) + abort (); + if (nan <= x) + abort (); + if (nan >= x) + abort (); + if (nan == x) + abort (); +#endif + exit (0); +} -- cgit v1.2.3