9 volatile union { long double l
; long long x
[2]; } u
, v
;
13 #if LDBL_MANT_DIG == 106 || LDBL_MANT_DIG == 113
14 # define COMPARE_LDBL(u, v) \
15 ((u).l == (v).l && (u).x[0] == (v).x[0] && (u).x[1] == (v).x[1])
17 # define COMPARE_LDBL(u, v) ((u).l == (v).l)
24 snprintf (buf, sizeof buf, "%LaL", u.l); \
25 if (strcmp (buf, #val) != 0) \
27 printf ("Error on line %d: %s != %s\n", __LINE__, buf, #val); \
30 if (sscanf (#val, "%La", &v.l) != 1 || !COMPARE_LDBL (u, v)) \
32 printf ("Error sscanf on line %d: %La != %La\n", __LINE__, \
36 /* printf ("%s %La %016Lx %016Lx\n", #val, u.l, u.x[0], u.x[1]); */ \
40 #if LDBL_MANT_DIG >= 106
41 # if LDBL_MANT_DIG == 106
42 TEST (0x0.ffffffffffffp
-1022L);
43 TEST (0x0.ffffffffffff1p
-1022L);
44 TEST (0x0.fffffffffffffp
-1022L);
47 TEST (0x1.0000000000001p
-1022L);
48 TEST (0x1.00000000001e7p
-1022L);
49 TEST (0x1.fffffffffffffp
-1022L);
51 TEST (0x1.00000000000008p
-1021L);
52 TEST (0x1.0000000000001p
-1021L);
53 TEST (0x1.00000000000018p
-1021L);
54 TEST (0x1.0000000000000f8p
-1017L);
55 TEST (0x1.0000000000001p
-1017L);
56 TEST (0x1.000000000000108p
-1017L);
57 TEST (0x1.000000000000dcf8p
-1013L);
58 TEST (0x1.000000000000ddp
-1013L);
59 TEST (0x1.000000000000dd08p
-1013L);
60 TEST (0x1.ffffffffffffffffffffffffffp
-1L);
61 TEST (0x1.ffffffffffffffffffffffffff8p
-1L);
63 TEST (0x1.000000000000000000000000008p
+0L);
64 TEST (0x1.00000000000000000000000001p
+0L);
65 TEST (0x1.000000000000000000000000018p
+0L);
66 TEST (0x1.23456789abcdef123456789abc8p
+0L);
67 TEST (0x1.23456789abcde7123456789abc8p
+0L);
68 TEST (0x1.23456789abcdef123456789abc8p
+64L);
69 TEST (0x1.23456789abcde7123456789abc8p
+64L);
70 TEST (0x1.123456789abcdef123456789p
-969L);
71 # if LDBL_MANT_DIG == 106
72 TEST (-0x1.2d71957cc1263bbbeb1d365f1e8p
-969L);
73 TEST (0x1.23456789abcdef0123456789abp
-970L);
74 TEST (0x1.579bde02468acp
-1001L);
75 TEST (0x0.abcdef0123456p
-1022L);
76 TEST (0x1.abcdef0123456p
-1022L);
77 TEST (0x1.abcdef012345678p
-1014L);
78 TEST (0x1.abcdef0123456f8p
-1014L);