1 /* { dg-do run } */
2 /* { dg-options "-O2" } */
3
4 #include <stdio.h>
5 #include <float.h>
6
7 #define TEST_EQ(TYPE,X,Y,RES) \
8 do { \
9 volatile TYPE a, b; \
10 a = (TYPE) X; \
11 b = (TYPE) Y; \
12 if ((a == b) != RES) \
13 { \
14 printf ("Runtime computation error @%d. %g " \
15 "!= %g\n", __LINE__, a, b); \
16 error = 1; \
17 } \
18 } while (0)
19
20 #ifndef __HS__
21 /* Special type of NaN found when using double FPX instructions. */
22 static const unsigned long long __nan = 0x7FF0000080000000ULL;
23 # define W (*(double *) &__nan)
24 #else
25 # define W __builtin_nan ("")
26 #endif
27
28 #define Q __builtin_nan ("")
29 #define H __builtin_inf ()
30
main(void)31 int main (void)
32 {
33 int error = 0;
34
35 TEST_EQ (double, 1, 1, 1);
36 TEST_EQ (double, 1, 2, 0);
37 TEST_EQ (double, W, W, 0);
38 TEST_EQ (double, Q, Q, 0);
39 TEST_EQ (double, __DBL_MAX__, __DBL_MAX__, 1);
40 TEST_EQ (double, __DBL_MIN__, __DBL_MIN__, 1);
41 TEST_EQ (double, H, H, 1);
42
43 if (error)
44 __builtin_abort ();
45
46 return 0;
47 }
48