| Index: gcc/gcc/testsuite/gcc.dg/dfp/compare-eq.h
|
| diff --git a/gcc/gcc/testsuite/gcc.dg/dfp/compare-eq.h b/gcc/gcc/testsuite/gcc.dg/dfp/compare-eq.h
|
| deleted file mode 100644
|
| index 809d642593c5ac422821d335dc72006029e1dca2..0000000000000000000000000000000000000000
|
| --- a/gcc/gcc/testsuite/gcc.dg/dfp/compare-eq.h
|
| +++ /dev/null
|
| @@ -1,96 +0,0 @@
|
| -/* Basic test of runtime equality comparisons using simple values that
|
| - are not affected by rounding. */
|
| -
|
| -#include <stdlib.h>
|
| -
|
| -static int failcnt;
|
| -
|
| -#define PASTE2(A,B) A ## B
|
| -#define PASTE(A,B) PASTE2(A,B)
|
| -
|
| -#ifdef DBG
|
| -#include <stdio.h>
|
| -#define FAILURE(OP,KIND) \
|
| - { printf ("failed at line %d: %s for %s values\n", __LINE__, OP, KIND); \
|
| - failcnt++; }
|
| -#else
|
| -#define FAILURE(OP,KIND) abort ();
|
| -#endif
|
| -
|
| -#ifndef WIDTH
|
| -#error define WIDTH as decimal float size in bytes
|
| -#endif
|
| -
|
| -#if WIDTH == 32
|
| -#define DTYPE _Decimal32
|
| -#define SUFFIX DF
|
| -#elif WIDTH == 64
|
| -#define DTYPE _Decimal64
|
| -#define SUFFIX DD
|
| -#elif WIDTH == 128
|
| -#define DTYPE _Decimal128
|
| -#define SUFFIX DL
|
| -#elif WIDTH == 0
|
| -/* This is for testing the test using a type known to work. */
|
| -#define DTYPE double
|
| -#define SUFFIX
|
| -#else
|
| -#error invalid width for decimal float type
|
| -#endif
|
| -
|
| -DTYPE m_two = PASTE(-2.0, SUFFIX);
|
| -DTYPE m_one = PASTE(-1.0, SUFFIX);
|
| -DTYPE zero = PASTE(0.0, SUFFIX);
|
| -DTYPE one = PASTE(1.0, SUFFIX);
|
| -DTYPE two = PASTE(2.0, SUFFIX);
|
| -
|
| -void
|
| -test_compares (void)
|
| -{
|
| - DTYPE x = one;
|
| - DTYPE y = zero;
|
| - DTYPE z = m_one;
|
| -
|
| - /* Equal to: comparisons against equal values. */
|
| -
|
| - if (! (x == one)) FAILURE ("==", "equal")
|
| - if (! (y == zero)) FAILURE ("==", "equal")
|
| - if (! (z == m_one)) FAILURE ("==", "equal")
|
| -
|
| - /* Equal to: comparisons against lesser values. */
|
| -
|
| - if (x == m_one) FAILURE ("==", "lesser")
|
| - if (x == zero) FAILURE ("==", "lesser")
|
| - if (y == m_one) FAILURE ("==", "lesser")
|
| - if (z == m_two) FAILURE ("==", "lesser")
|
| -
|
| - /* Equal to: comparisons against greater values. */
|
| -
|
| - if (x == two) FAILURE ("==", "greater")
|
| - if (y == one) FAILURE ("==", "greater")
|
| - if (z == zero) FAILURE ("==", "greater")
|
| - if (z == one) FAILURE ("==", "greater")
|
| -
|
| - /* Not equal to: comparisons against equal values. */
|
| -
|
| - if (x != one) FAILURE ("!=", "equal")
|
| - if (y != zero) FAILURE ("!=", "equal")
|
| - if (z != m_one) FAILURE ("!=", "equal")
|
| -
|
| - /* Not equal to: comparisons against lesser values. */
|
| -
|
| - if (! (x != m_one)) FAILURE ("!=", "lesser")
|
| - if (! (x != zero)) FAILURE ("!=", "lesser")
|
| - if (! (y != m_one)) FAILURE ("!=", "lesser")
|
| - if (! (z != m_two)) FAILURE ("!=", "lesser")
|
| -
|
| - /* Not equal to: comparisons against greater values. */
|
| -
|
| - if (! (x != m_one)) FAILURE ("!=", "greater")
|
| - if (! (x != zero)) FAILURE ("!=", "greater")
|
| - if (! (y != m_one)) FAILURE ("!=", "greater")
|
| - if (! (z != m_two)) FAILURE ("!=", "greater")
|
| -
|
| - if (failcnt)
|
| - abort ();
|
| -}
|
|
|