gcc/testsuite/gcc.dg/dfp/pr41049.c

   1 /* { dg-options "-std=gnu99" } */
   2
   3 /* The preferred exponent of the result of a conversion from an
   4    integral type to a decimal float type is zero.  A conversion at
   5    either compile time or runtime should not change the number of
   6    trailing zeroes.  */
   7
   8 #include "dfp-dbg.h"
   9
  10 #define PASTE2(A,B) A ## B
  11 #define PASTE(A,B) PASTE2(A,B)
  12
  13 #define TESTVAL_NEG(VAL,SUF,SIZE)                                       \
  14   x = PASTE(PASTE(VAL,.),SUF);                                          \
  15   si = VAL;                                                             \
  16   sll = PASTE(VAL,LL);                                                  \
  17   a = si;                                                               \
  18   b = sll;                                                              \
  19   c = VAL;                                                              \
  20   d = PASTE(VAL,LL);                                                    \
  21   if ((__builtin_memcmp ((void *)&x, (void *)&a, SIZE) != 0)            \
  22       || (__builtin_memcmp ((void *)&x, (void *)&b,SIZE) != 0)          \
  23       || (__builtin_memcmp ((void *)&x, (void *)&c,SIZE) != 0)          \
  24       || (__builtin_memcmp ((void *)&x, (void *)&d,SIZE) != 0))         \
  25     FAILURE
  26
  27 #define TESTVAL_NEG_BIG(VAL,SUF,SIZE)                                   \
  28   x = PASTE(PASTE(VAL,.),SUF);                                          \
  29   sll = PASTE(VAL,LL);                                                  \
  30   a = sll;                                                              \
  31   b = PASTE(VAL,LL);                                                    \
  32   if ((__builtin_memcmp ((void *)&x, (void *)&a, SIZE) != 0)            \
  33       || (__builtin_memcmp ((void *)&x, (void *)&b,SIZE) != 0))         \
  34     FAILURE
  35
  36 #define TESTVAL_NONNEG(VAL,SUF,SIZE)                                    \
  37   x = PASTE(PASTE(VAL,.),SUF);                                          \
  38   si = VAL;                                                             \
  39   ui = VAL;                                                             \
  40   sll = PASTE(VAL,LL);                                                  \
  41   ull = PASTE(VAL,ULL);                                                 \
  42   a = si;                                                               \
  43   b = sll;                                                              \
  44   c = ui;                                                               \
  45   d = ull;                                                              \
  46   e = VAL;                                                              \
  47   f = VAL;                                                              \
  48   g = PASTE(VAL,LL);                                                    \
  49   h = PASTE(VAL,ULL);                                                   \
  50   if ((__builtin_memcmp ((void *)&x, (void *)&a, SIZE) != 0)            \
  51       || (__builtin_memcmp ((void *)&x, (void *)&b,SIZE) != 0)          \
  52       || (__builtin_memcmp ((void *)&x, (void *)&c,SIZE) != 0)          \
  53       || (__builtin_memcmp ((void *)&x, (void *)&d,SIZE) != 0)          \
  54       || (__builtin_memcmp ((void *)&x, (void *)&e,SIZE) != 0)          \
  55       || (__builtin_memcmp ((void *)&x, (void *)&f,SIZE) != 0)          \
  56       || (__builtin_memcmp ((void *)&x, (void *)&g,SIZE) != 0)          \
  57       || (__builtin_memcmp ((void *)&x, (void *)&h,SIZE) != 0))         \
  58     FAILURE
  59
  60 #define TESTVAL_NONNEG_BIG(VAL,SUF,SIZE)                                \
  61   x = PASTE(PASTE(VAL,.),SUF);                                          \
  62   sll = PASTE(VAL,LL);                                                  \
  63   ull = PASTE(VAL,ULL);                                                 \
  64   b = sll;                                                              \
  65   d = ull;                                                              \
  66   f = PASTE(VAL,LL);                                                    \
  67   g = PASTE(VAL,ULL);                                                   \
  68   if ((__builtin_memcmp ((void *)&x, (void *)&b, SIZE) != 0)            \
  69       || (__builtin_memcmp ((void *)&d, (void *)&d,SIZE) != 0)          \
  70       || (__builtin_memcmp ((void *)&f, (void *)&d,SIZE) != 0)          \
  71       || (__builtin_memcmp ((void *)&g, (void *)&d,SIZE) != 0))         \
  72     FAILURE
  73
  74 #undef SUFFIX
  75 #define SUFFIX DF
  76 #undef TYPE
  77 #define TYPE _Decimal32
  78
  79 void
  80 zeroes_32 (void)
  81 {
  82   volatile TYPE x, a, b, c, d, e, f, g, h;
  83   volatile int si;
  84   volatile unsigned int ui;
  85   volatile long long sll;
  86   volatile unsigned long long ull;
  87
  88   TESTVAL_NONNEG (0, SUFFIX, sizeof (TYPE));
  89   TESTVAL_NONNEG (1, SUFFIX, sizeof (TYPE));
  90   TESTVAL_NONNEG (5, SUFFIX, sizeof (TYPE));
  91   TESTVAL_NONNEG (9, SUFFIX, sizeof (TYPE));
  92   TESTVAL_NONNEG (10, SUFFIX, sizeof (TYPE));
  93   TESTVAL_NONNEG (50, SUFFIX, sizeof (TYPE));
  94   TESTVAL_NONNEG (90, SUFFIX, sizeof (TYPE));
  95   TESTVAL_NONNEG (100, SUFFIX, sizeof (TYPE));
  96   TESTVAL_NONNEG (500, SUFFIX, sizeof (TYPE));
  97   TESTVAL_NONNEG (900, SUFFIX, sizeof (TYPE));
  98   TESTVAL_NONNEG (1000, SUFFIX, sizeof (TYPE));
  99   TESTVAL_NONNEG (5000, SUFFIX, sizeof (TYPE));
 100   TESTVAL_NONNEG (9000, SUFFIX, sizeof (TYPE));
 101   TESTVAL_NONNEG (10000, SUFFIX, sizeof (TYPE));
 102   TESTVAL_NONNEG (50000, SUFFIX, sizeof (TYPE));
 103   TESTVAL_NONNEG (90000, SUFFIX, sizeof (TYPE));
 104   TESTVAL_NONNEG (100000, SUFFIX, sizeof (TYPE));
 105   TESTVAL_NONNEG (500000, SUFFIX, sizeof (TYPE));
 106   TESTVAL_NONNEG (900000, SUFFIX, sizeof (TYPE));
 107   TESTVAL_NONNEG (1000000, SUFFIX, sizeof (TYPE));
 108   TESTVAL_NONNEG (5000000, SUFFIX, sizeof (TYPE));
 109   TESTVAL_NONNEG (9000000, SUFFIX, sizeof (TYPE));
 110   TESTVAL_NONNEG (10000000, SUFFIX, sizeof (TYPE));
 111   TESTVAL_NONNEG (50000000, SUFFIX, sizeof (TYPE));
 112   TESTVAL_NONNEG (90000000, SUFFIX, sizeof (TYPE));
 113   TESTVAL_NONNEG (100000000, SUFFIX, sizeof (TYPE));
 114   TESTVAL_NONNEG (500000000, SUFFIX, sizeof (TYPE));
 115   TESTVAL_NONNEG (900000000, SUFFIX, sizeof (TYPE));
 116   TESTVAL_NONNEG (1000000000, SUFFIX, sizeof (TYPE));
 117   TESTVAL_NONNEG_BIG (5000000000, SUFFIX, sizeof (TYPE));
 118   TESTVAL_NONNEG_BIG (9000000000, SUFFIX, sizeof (TYPE));
 119   TESTVAL_NONNEG_BIG (10000000000, SUFFIX, sizeof (TYPE));
 120   TESTVAL_NONNEG_BIG (50000000000, SUFFIX, sizeof (TYPE));
 121   TESTVAL_NONNEG_BIG (90000000000, SUFFIX, sizeof (TYPE));
 122   TESTVAL_NONNEG_BIG (100000000000, SUFFIX, sizeof (TYPE));
 123   TESTVAL_NONNEG_BIG (500000000000, SUFFIX, sizeof (TYPE));
 124   TESTVAL_NONNEG_BIG (900000000000, SUFFIX, sizeof (TYPE));
 125   TESTVAL_NONNEG_BIG (1000000000000, SUFFIX, sizeof (TYPE));
 126   TESTVAL_NONNEG_BIG (5000000000000, SUFFIX, sizeof (TYPE));
 127   TESTVAL_NONNEG_BIG (9000000000000, SUFFIX, sizeof (TYPE));
 128   TESTVAL_NONNEG_BIG (10000000000000, SUFFIX, sizeof (TYPE));
 129   TESTVAL_NONNEG_BIG (50000000000000, SUFFIX, sizeof (TYPE));
 130   TESTVAL_NONNEG_BIG (90000000000000, SUFFIX, sizeof (TYPE));
 131   TESTVAL_NONNEG_BIG (100000000000000, SUFFIX, sizeof (TYPE));
 132   TESTVAL_NONNEG_BIG (500000000000000, SUFFIX, sizeof (TYPE));
 133   TESTVAL_NONNEG_BIG (900000000000000, SUFFIX, sizeof (TYPE));
 134   TESTVAL_NONNEG_BIG (1000000000000000, SUFFIX, sizeof (TYPE));
 135   TESTVAL_NONNEG_BIG (5000000000000000, SUFFIX, sizeof (TYPE));
 136   TESTVAL_NONNEG_BIG (9000000000000000, SUFFIX, sizeof (TYPE));
 137   TESTVAL_NONNEG_BIG (10000000000000000, SUFFIX, sizeof (TYPE));
 138   TESTVAL_NONNEG_BIG (50000000000000000, SUFFIX, sizeof (TYPE));
 139   TESTVAL_NONNEG_BIG (90000000000000000, SUFFIX, sizeof (TYPE));
 140   TESTVAL_NONNEG_BIG (100000000000000000, SUFFIX, sizeof (TYPE));
 141   TESTVAL_NONNEG_BIG (500000000000000000, SUFFIX, sizeof (TYPE));
 142   TESTVAL_NONNEG_BIG (900000000000000000, SUFFIX, sizeof (TYPE));
 143   TESTVAL_NONNEG_BIG (1000000000000000000, SUFFIX, sizeof (TYPE));
 144   TESTVAL_NONNEG_BIG (5000000000000000000, SUFFIX, sizeof (TYPE));
 145   TESTVAL_NONNEG_BIG (9000000000000000000, SUFFIX, sizeof (TYPE));
 146
 147   TESTVAL_NEG (0, SUFFIX, sizeof (TYPE));
 148   TESTVAL_NEG (-1, SUFFIX, sizeof (TYPE));
 149   TESTVAL_NEG (-5, SUFFIX, sizeof (TYPE));
 150   TESTVAL_NEG (-9, SUFFIX, sizeof (TYPE));
 151   TESTVAL_NEG (-10, SUFFIX, sizeof (TYPE));
 152   TESTVAL_NEG (-50, SUFFIX, sizeof (TYPE));
 153   TESTVAL_NEG (-90, SUFFIX, sizeof (TYPE));
 154   TESTVAL_NEG (-100, SUFFIX, sizeof (TYPE));
 155   TESTVAL_NEG (-500, SUFFIX, sizeof (TYPE));
 156   TESTVAL_NEG (-900, SUFFIX, sizeof (TYPE));
 157   TESTVAL_NEG (-1000, SUFFIX, sizeof (TYPE));
 158   TESTVAL_NEG (-5000, SUFFIX, sizeof (TYPE));
 159   TESTVAL_NEG (-9000, SUFFIX, sizeof (TYPE));
 160   TESTVAL_NEG (-10000, SUFFIX, sizeof (TYPE));
 161   TESTVAL_NEG (-50000, SUFFIX, sizeof (TYPE));
 162   TESTVAL_NEG (-90000, SUFFIX, sizeof (TYPE));
 163   TESTVAL_NEG (-100000, SUFFIX, sizeof (TYPE));
 164   TESTVAL_NEG (-500000, SUFFIX, sizeof (TYPE));
 165   TESTVAL_NEG (-900000, SUFFIX, sizeof (TYPE));
 166   TESTVAL_NEG (-1000000, SUFFIX, sizeof (TYPE));
 167   TESTVAL_NEG (-5000000, SUFFIX, sizeof (TYPE));
 168   TESTVAL_NEG (-9000000, SUFFIX, sizeof (TYPE));
 169   TESTVAL_NEG (-10000000, SUFFIX, sizeof (TYPE));
 170   TESTVAL_NEG (-50000000, SUFFIX, sizeof (TYPE));
 171   TESTVAL_NEG (-90000000, SUFFIX, sizeof (TYPE));
 172   TESTVAL_NEG (-100000000, SUFFIX, sizeof (TYPE));
 173   TESTVAL_NEG (-500000000, SUFFIX, sizeof (TYPE));
 174   TESTVAL_NEG (-900000000, SUFFIX, sizeof (TYPE));
 175   TESTVAL_NEG (-1000000000, SUFFIX, sizeof (TYPE));
 176   TESTVAL_NEG_BIG (-5000000000, SUFFIX, sizeof (TYPE));
 177   TESTVAL_NEG_BIG (-9000000000, SUFFIX, sizeof (TYPE));
 178   TESTVAL_NEG_BIG (-10000000000, SUFFIX, sizeof (TYPE));
 179   TESTVAL_NEG_BIG (-50000000000, SUFFIX, sizeof (TYPE));
 180   TESTVAL_NEG_BIG (-90000000000, SUFFIX, sizeof (TYPE));
 181   TESTVAL_NEG_BIG (-100000000000, SUFFIX, sizeof (TYPE));
 182   TESTVAL_NEG_BIG (-500000000000, SUFFIX, sizeof (TYPE));
 183   TESTVAL_NEG_BIG (-900000000000, SUFFIX, sizeof (TYPE));
 184   TESTVAL_NEG_BIG (-1000000000000, SUFFIX, sizeof (TYPE));
 185   TESTVAL_NEG_BIG (-5000000000000, SUFFIX, sizeof (TYPE));
 186   TESTVAL_NEG_BIG (-9000000000000, SUFFIX, sizeof (TYPE));
 187   TESTVAL_NEG_BIG (-10000000000000, SUFFIX, sizeof (TYPE));
 188   TESTVAL_NEG_BIG (-50000000000000, SUFFIX, sizeof (TYPE));
 189   TESTVAL_NEG_BIG (-90000000000000, SUFFIX, sizeof (TYPE));
 190   TESTVAL_NEG_BIG (-100000000000000, SUFFIX, sizeof (TYPE));
 191   TESTVAL_NEG_BIG (-500000000000000, SUFFIX, sizeof (TYPE));
 192   TESTVAL_NEG_BIG (-900000000000000, SUFFIX, sizeof (TYPE));
 193   TESTVAL_NEG_BIG (-1000000000000000, SUFFIX, sizeof (TYPE));
 194   TESTVAL_NEG_BIG (-5000000000000000, SUFFIX, sizeof (TYPE));
 195   TESTVAL_NEG_BIG (-9000000000000000, SUFFIX, sizeof (TYPE));
 196   TESTVAL_NEG_BIG (-10000000000000000, SUFFIX, sizeof (TYPE));
 197   TESTVAL_NEG_BIG (-50000000000000000, SUFFIX, sizeof (TYPE));
 198   TESTVAL_NEG_BIG (-90000000000000000, SUFFIX, sizeof (TYPE));
 199   TESTVAL_NEG_BIG (-100000000000000000, SUFFIX, sizeof (TYPE));
 200   TESTVAL_NEG_BIG (-500000000000000000, SUFFIX, sizeof (TYPE));
 201   TESTVAL_NEG_BIG (-900000000000000000, SUFFIX, sizeof (TYPE));
 202   TESTVAL_NEG_BIG (-1000000000000000000, SUFFIX, sizeof (TYPE));
 203   TESTVAL_NEG_BIG (-5000000000000000000, SUFFIX, sizeof (TYPE));
 204   TESTVAL_NEG_BIG (-9000000000000000000, SUFFIX, sizeof (TYPE));
 205 }
 206
 207 void
 208 round_32 (void)
 209 {
 210   volatile TYPE x, a, b, c, d, e, f, g, h;
 211   volatile int si;
 212   volatile unsigned int ui;
 213   volatile long long sll;
 214   volatile unsigned long long ull;
 215
 216   TESTVAL_NONNEG (10000049, SUFFIX, sizeof (TYPE));
 217   TESTVAL_NONNEG (10000050, SUFFIX, sizeof (TYPE));
 218   TESTVAL_NONNEG (10000051, SUFFIX, sizeof (TYPE));
 219   TESTVAL_NONNEG (10000000, SUFFIX, sizeof (TYPE));
 220   TESTVAL_NONNEG (10000001, SUFFIX, sizeof (TYPE));
 221   TESTVAL_NONNEG (10000002, SUFFIX, sizeof (TYPE));
 222   TESTVAL_NONNEG (10000003, SUFFIX, sizeof (TYPE));
 223   TESTVAL_NONNEG (10000004, SUFFIX, sizeof (TYPE));
 224   TESTVAL_NONNEG (100000049, SUFFIX, sizeof (TYPE));
 225   TESTVAL_NONNEG (100000051, SUFFIX, sizeof (TYPE));
 226   TESTVAL_NONNEG (10000006, SUFFIX, sizeof (TYPE));
 227   TESTVAL_NONNEG (10000007, SUFFIX, sizeof (TYPE));
 228   TESTVAL_NONNEG (10000008, SUFFIX, sizeof (TYPE));
 229   TESTVAL_NONNEG (10000009, SUFFIX, sizeof (TYPE));
 230   TESTVAL_NONNEG (10000010, SUFFIX, sizeof (TYPE));
 231
 232   TESTVAL_NEG (-10000049, SUFFIX, sizeof (TYPE));
 233   TESTVAL_NEG (-10000050, SUFFIX, sizeof (TYPE));
 234   TESTVAL_NEG (-10000051, SUFFIX, sizeof (TYPE));
 235   TESTVAL_NEG (-10000000, SUFFIX, sizeof (TYPE));
 236   TESTVAL_NEG (-10000001, SUFFIX, sizeof (TYPE));
 237   TESTVAL_NEG (-10000002, SUFFIX, sizeof (TYPE));
 238   TESTVAL_NEG (-10000003, SUFFIX, sizeof (TYPE));
 239   TESTVAL_NEG (-10000004, SUFFIX, sizeof (TYPE));
 240   TESTVAL_NEG (-100000049, SUFFIX, sizeof (TYPE));
 241   TESTVAL_NEG (-100000051, SUFFIX, sizeof (TYPE));
 242   TESTVAL_NEG (-10000006, SUFFIX, sizeof (TYPE));
 243   TESTVAL_NEG (-10000007, SUFFIX, sizeof (TYPE));
 244   TESTVAL_NEG (-10000008, SUFFIX, sizeof (TYPE));
 245   TESTVAL_NEG (-10000009, SUFFIX, sizeof (TYPE));
 246   TESTVAL_NEG (-10000010, SUFFIX, sizeof (TYPE));
 247 }
 248
 249 #undef SUFFIX
 250 #define SUFFIX DD
 251 #undef TYPE
 252 #define TYPE _Decimal64
 253
 254 void
 255 zeroes_64 (void)
 256 {
 257   volatile TYPE x, a, b, c, d, e, f, g, h;
 258   volatile int si;
 259   volatile unsigned int ui;
 260   volatile long long sll;
 261   volatile unsigned long long ull;
 262
 263   TESTVAL_NONNEG (0, SUFFIX, sizeof (TYPE));
 264   TESTVAL_NONNEG (1, SUFFIX, sizeof (TYPE));
 265   TESTVAL_NONNEG (5, SUFFIX, sizeof (TYPE));
 266   TESTVAL_NONNEG (9, SUFFIX, sizeof (TYPE));
 267   TESTVAL_NONNEG (10, SUFFIX, sizeof (TYPE));
 268   TESTVAL_NONNEG (50, SUFFIX, sizeof (TYPE));
 269   TESTVAL_NONNEG (90, SUFFIX, sizeof (TYPE));
 270   TESTVAL_NONNEG (100, SUFFIX, sizeof (TYPE));
 271   TESTVAL_NONNEG (500, SUFFIX, sizeof (TYPE));
 272   TESTVAL_NONNEG (900, SUFFIX, sizeof (TYPE));
 273   TESTVAL_NONNEG (1000, SUFFIX, sizeof (TYPE));
 274   TESTVAL_NONNEG (5000, SUFFIX, sizeof (TYPE));
 275   TESTVAL_NONNEG (9000, SUFFIX, sizeof (TYPE));
 276   TESTVAL_NONNEG (10000, SUFFIX, sizeof (TYPE));
 277   TESTVAL_NONNEG (50000, SUFFIX, sizeof (TYPE));
 278   TESTVAL_NONNEG (90000, SUFFIX, sizeof (TYPE));
 279   TESTVAL_NONNEG (100000, SUFFIX, sizeof (TYPE));
 280   TESTVAL_NONNEG (500000, SUFFIX, sizeof (TYPE));
 281   TESTVAL_NONNEG (900000, SUFFIX, sizeof (TYPE));
 282   TESTVAL_NONNEG (1000000, SUFFIX, sizeof (TYPE));
 283   TESTVAL_NONNEG (5000000, SUFFIX, sizeof (TYPE));
 284   TESTVAL_NONNEG (9000000, SUFFIX, sizeof (TYPE));
 285   TESTVAL_NONNEG (10000000, SUFFIX, sizeof (TYPE));
 286   TESTVAL_NONNEG (50000000, SUFFIX, sizeof (TYPE));
 287   TESTVAL_NONNEG (90000000, SUFFIX, sizeof (TYPE));
 288   TESTVAL_NONNEG (100000000, SUFFIX, sizeof (TYPE));
 289   TESTVAL_NONNEG (500000000, SUFFIX, sizeof (TYPE));
 290   TESTVAL_NONNEG (900000000, SUFFIX, sizeof (TYPE));
 291   TESTVAL_NONNEG (1000000000, SUFFIX, sizeof (TYPE));
 292   TESTVAL_NONNEG_BIG (5000000000, SUFFIX, sizeof (TYPE));
 293   TESTVAL_NONNEG_BIG (9000000000, SUFFIX, sizeof (TYPE));
 294   TESTVAL_NONNEG_BIG (10000000000, SUFFIX, sizeof (TYPE));
 295   TESTVAL_NONNEG_BIG (50000000000, SUFFIX, sizeof (TYPE));
 296   TESTVAL_NONNEG_BIG (90000000000, SUFFIX, sizeof (TYPE));
 297   TESTVAL_NONNEG_BIG (100000000000, SUFFIX, sizeof (TYPE));
 298   TESTVAL_NONNEG_BIG (500000000000, SUFFIX, sizeof (TYPE));
 299   TESTVAL_NONNEG_BIG (900000000000, SUFFIX, sizeof (TYPE));
 300   TESTVAL_NONNEG_BIG (1000000000000, SUFFIX, sizeof (TYPE));
 301   TESTVAL_NONNEG_BIG (5000000000000, SUFFIX, sizeof (TYPE));
 302   TESTVAL_NONNEG_BIG (9000000000000, SUFFIX, sizeof (TYPE));
 303   TESTVAL_NONNEG_BIG (10000000000000, SUFFIX, sizeof (TYPE));
 304   TESTVAL_NONNEG_BIG (50000000000000, SUFFIX, sizeof (TYPE));
 305   TESTVAL_NONNEG_BIG (90000000000000, SUFFIX, sizeof (TYPE));
 306   TESTVAL_NONNEG_BIG (100000000000000, SUFFIX, sizeof (TYPE));
 307   TESTVAL_NONNEG_BIG (500000000000000, SUFFIX, sizeof (TYPE));
 308   TESTVAL_NONNEG_BIG (900000000000000, SUFFIX, sizeof (TYPE));
 309   TESTVAL_NONNEG_BIG (1000000000000000, SUFFIX, sizeof (TYPE));
 310   TESTVAL_NONNEG_BIG (5000000000000000, SUFFIX, sizeof (TYPE));
 311   TESTVAL_NONNEG_BIG (9000000000000000, SUFFIX, sizeof (TYPE));
 312   TESTVAL_NONNEG_BIG (10000000000000000, SUFFIX, sizeof (TYPE));
 313   TESTVAL_NONNEG_BIG (50000000000000000, SUFFIX, sizeof (TYPE));
 314   TESTVAL_NONNEG_BIG (90000000000000000, SUFFIX, sizeof (TYPE));
 315   TESTVAL_NONNEG_BIG (100000000000000000, SUFFIX, sizeof (TYPE));
 316   TESTVAL_NONNEG_BIG (500000000000000000, SUFFIX, sizeof (TYPE));
 317   TESTVAL_NONNEG_BIG (900000000000000000, SUFFIX, sizeof (TYPE));
 318   TESTVAL_NONNEG_BIG (1000000000000000000, SUFFIX, sizeof (TYPE));
 319   TESTVAL_NONNEG_BIG (5000000000000000000, SUFFIX, sizeof (TYPE));
 320   TESTVAL_NONNEG_BIG (9000000000000000000, SUFFIX, sizeof (TYPE));
 321
 322   TESTVAL_NEG (0, SUFFIX, sizeof (TYPE));
 323   TESTVAL_NEG (-1, SUFFIX, sizeof (TYPE));
 324   TESTVAL_NEG (-5, SUFFIX, sizeof (TYPE));
 325   TESTVAL_NEG (-9, SUFFIX, sizeof (TYPE));
 326   TESTVAL_NEG (-10, SUFFIX, sizeof (TYPE));
 327   TESTVAL_NEG (-50, SUFFIX, sizeof (TYPE));
 328   TESTVAL_NEG (-90, SUFFIX, sizeof (TYPE));
 329   TESTVAL_NEG (-100, SUFFIX, sizeof (TYPE));
 330   TESTVAL_NEG (-500, SUFFIX, sizeof (TYPE));
 331   TESTVAL_NEG (-900, SUFFIX, sizeof (TYPE));
 332   TESTVAL_NEG (-1000, SUFFIX, sizeof (TYPE));
 333   TESTVAL_NEG (-5000, SUFFIX, sizeof (TYPE));
 334   TESTVAL_NEG (-9000, SUFFIX, sizeof (TYPE));
 335   TESTVAL_NEG (-10000, SUFFIX, sizeof (TYPE));
 336   TESTVAL_NEG (-50000, SUFFIX, sizeof (TYPE));
 337   TESTVAL_NEG (-90000, SUFFIX, sizeof (TYPE));
 338   TESTVAL_NEG (-100000, SUFFIX, sizeof (TYPE));
 339   TESTVAL_NEG (-500000, SUFFIX, sizeof (TYPE));
 340   TESTVAL_NEG (-900000, SUFFIX, sizeof (TYPE));
 341   TESTVAL_NEG (-1000000, SUFFIX, sizeof (TYPE));
 342   TESTVAL_NEG (-5000000, SUFFIX, sizeof (TYPE));
 343   TESTVAL_NEG (-9000000, SUFFIX, sizeof (TYPE));
 344   TESTVAL_NEG (-10000000, SUFFIX, sizeof (TYPE));
 345   TESTVAL_NEG (-50000000, SUFFIX, sizeof (TYPE));
 346   TESTVAL_NEG (-90000000, SUFFIX, sizeof (TYPE));
 347   TESTVAL_NEG (-100000000, SUFFIX, sizeof (TYPE));
 348   TESTVAL_NEG (-500000000, SUFFIX, sizeof (TYPE));
 349   TESTVAL_NEG (-900000000, SUFFIX, sizeof (TYPE));
 350   TESTVAL_NEG (-1000000000, SUFFIX, sizeof (TYPE));
 351   TESTVAL_NEG_BIG (-5000000000, SUFFIX, sizeof (TYPE));
 352   TESTVAL_NEG_BIG (-9000000000, SUFFIX, sizeof (TYPE));
 353   TESTVAL_NEG_BIG (-10000000000, SUFFIX, sizeof (TYPE));
 354   TESTVAL_NEG_BIG (-50000000000, SUFFIX, sizeof (TYPE));
 355   TESTVAL_NEG_BIG (-90000000000, SUFFIX, sizeof (TYPE));
 356   TESTVAL_NEG_BIG (-100000000000, SUFFIX, sizeof (TYPE));
 357   TESTVAL_NEG_BIG (-500000000000, SUFFIX, sizeof (TYPE));
 358   TESTVAL_NEG_BIG (-900000000000, SUFFIX, sizeof (TYPE));
 359   TESTVAL_NEG_BIG (-1000000000000, SUFFIX, sizeof (TYPE));
 360   TESTVAL_NEG_BIG (-5000000000000, SUFFIX, sizeof (TYPE));
 361   TESTVAL_NEG_BIG (-9000000000000, SUFFIX, sizeof (TYPE));
 362   TESTVAL_NEG_BIG (-10000000000000, SUFFIX, sizeof (TYPE));
 363   TESTVAL_NEG_BIG (-50000000000000, SUFFIX, sizeof (TYPE));
 364   TESTVAL_NEG_BIG (-90000000000000, SUFFIX, sizeof (TYPE));
 365   TESTVAL_NEG_BIG (-100000000000000, SUFFIX, sizeof (TYPE));
 366   TESTVAL_NEG_BIG (-500000000000000, SUFFIX, sizeof (TYPE));
 367   TESTVAL_NEG_BIG (-900000000000000, SUFFIX, sizeof (TYPE));
 368   TESTVAL_NEG_BIG (-1000000000000000, SUFFIX, sizeof (TYPE));
 369   TESTVAL_NEG_BIG (-5000000000000000, SUFFIX, sizeof (TYPE));
 370   TESTVAL_NEG_BIG (-9000000000000000, SUFFIX, sizeof (TYPE));
 371   TESTVAL_NEG_BIG (-10000000000000000, SUFFIX, sizeof (TYPE));
 372   TESTVAL_NEG_BIG (-50000000000000000, SUFFIX, sizeof (TYPE));
 373   TESTVAL_NEG_BIG (-90000000000000000, SUFFIX, sizeof (TYPE));
 374   TESTVAL_NEG_BIG (-100000000000000000, SUFFIX, sizeof (TYPE));
 375   TESTVAL_NEG_BIG (-500000000000000000, SUFFIX, sizeof (TYPE));
 376   TESTVAL_NEG_BIG (-900000000000000000, SUFFIX, sizeof (TYPE));
 377   TESTVAL_NEG_BIG (-1000000000000000000, SUFFIX, sizeof (TYPE));
 378   TESTVAL_NEG_BIG (-5000000000000000000, SUFFIX, sizeof (TYPE));
 379   TESTVAL_NEG_BIG (-9000000000000000000, SUFFIX, sizeof (TYPE));
 380 }
 381
 382 void
 383 round_64 (void)
 384 {
 385   volatile TYPE x, a, b, c, d, e, f, g, h;
 386   volatile int si;
 387   volatile unsigned int ui;
 388   volatile long long sll;
 389   volatile unsigned long long ull;
 390
 391   TESTVAL_NONNEG_BIG (10000000000000000, SUFFIX, sizeof (TYPE));
 392   TESTVAL_NONNEG_BIG (10000000000000001, SUFFIX, sizeof (TYPE));
 393   TESTVAL_NONNEG_BIG (10000000000000002, SUFFIX, sizeof (TYPE));
 394   TESTVAL_NONNEG_BIG (10000000000000003, SUFFIX, sizeof (TYPE));
 395   TESTVAL_NONNEG_BIG (10000000000000004, SUFFIX, sizeof (TYPE));
 396   TESTVAL_NONNEG_BIG (100000000000000049, SUFFIX, sizeof (TYPE));
 397   TESTVAL_NONNEG_BIG (100000000000000051, SUFFIX, sizeof (TYPE));
 398   TESTVAL_NONNEG_BIG (10000000000000006, SUFFIX, sizeof (TYPE));
 399   TESTVAL_NONNEG_BIG (10000000000000007, SUFFIX, sizeof (TYPE));
 400   TESTVAL_NONNEG_BIG (10000000000000008, SUFFIX, sizeof (TYPE));
 401   TESTVAL_NONNEG_BIG (10000000000000009, SUFFIX, sizeof (TYPE));
 402   TESTVAL_NONNEG_BIG (10000000000000010, SUFFIX, sizeof (TYPE));
 403
 404   TESTVAL_NEG_BIG (-10000000000000000, SUFFIX, sizeof (TYPE));
 405   TESTVAL_NEG_BIG (-10000000000000001, SUFFIX, sizeof (TYPE));
 406   TESTVAL_NEG_BIG (-10000000000000002, SUFFIX, sizeof (TYPE));
 407   TESTVAL_NEG_BIG (-10000000000000003, SUFFIX, sizeof (TYPE));
 408   TESTVAL_NEG_BIG (-10000000000000004, SUFFIX, sizeof (TYPE));
 409   TESTVAL_NEG_BIG (-100000000000000049, SUFFIX, sizeof (TYPE));
 410   TESTVAL_NEG_BIG (-100000000000000051, SUFFIX, sizeof (TYPE));
 411   TESTVAL_NEG_BIG (-10000000000000006, SUFFIX, sizeof (TYPE));
 412   TESTVAL_NEG_BIG (-10000000000000007, SUFFIX, sizeof (TYPE));
 413   TESTVAL_NEG_BIG (-10000000000000008, SUFFIX, sizeof (TYPE));
 414   TESTVAL_NEG_BIG (-10000000000000009, SUFFIX, sizeof (TYPE));
 415   TESTVAL_NEG_BIG (-10000000000000010, SUFFIX, sizeof (TYPE));
 416 }
 417
 418 #undef SUFFIX
 419 #define SUFFIX DL
 420 #undef TYPE
 421 #define TYPE _Decimal128
 422
 423 void
 424 zeroes_128 (void)
 425 {
 426   volatile TYPE x, a, b, c, d, e, f, g, h;
 427   volatile int si;
 428   volatile unsigned int ui;
 429   volatile long long sll;
 430   volatile unsigned long long ull;
 431
 432   TESTVAL_NONNEG (0, SUFFIX, sizeof (TYPE));
 433   TESTVAL_NONNEG (1, SUFFIX, sizeof (TYPE));
 434   TESTVAL_NONNEG (5, SUFFIX, sizeof (TYPE));
 435   TESTVAL_NONNEG (9, SUFFIX, sizeof (TYPE));
 436   TESTVAL_NONNEG (10, SUFFIX, sizeof (TYPE));
 437   TESTVAL_NONNEG (50, SUFFIX, sizeof (TYPE));
 438   TESTVAL_NONNEG (90, SUFFIX, sizeof (TYPE));
 439   TESTVAL_NONNEG (100, SUFFIX, sizeof (TYPE));
 440   TESTVAL_NONNEG (500, SUFFIX, sizeof (TYPE));
 441   TESTVAL_NONNEG (900, SUFFIX, sizeof (TYPE));
 442   TESTVAL_NONNEG (1000, SUFFIX, sizeof (TYPE));
 443   TESTVAL_NONNEG (5000, SUFFIX, sizeof (TYPE));
 444   TESTVAL_NONNEG (9000, SUFFIX, sizeof (TYPE));
 445   TESTVAL_NONNEG (10000, SUFFIX, sizeof (TYPE));
 446   TESTVAL_NONNEG (50000, SUFFIX, sizeof (TYPE));
 447   TESTVAL_NONNEG (90000, SUFFIX, sizeof (TYPE));
 448   TESTVAL_NONNEG (100000, SUFFIX, sizeof (TYPE));
 449   TESTVAL_NONNEG (500000, SUFFIX, sizeof (TYPE));
 450   TESTVAL_NONNEG (900000, SUFFIX, sizeof (TYPE));
 451   TESTVAL_NONNEG (1000000, SUFFIX, sizeof (TYPE));
 452   TESTVAL_NONNEG (5000000, SUFFIX, sizeof (TYPE));
 453   TESTVAL_NONNEG (9000000, SUFFIX, sizeof (TYPE));
 454   TESTVAL_NONNEG (10000000, SUFFIX, sizeof (TYPE));
 455   TESTVAL_NONNEG (50000000, SUFFIX, sizeof (TYPE));
 456   TESTVAL_NONNEG (90000000, SUFFIX, sizeof (TYPE));
 457   TESTVAL_NONNEG (100000000, SUFFIX, sizeof (TYPE));
 458   TESTVAL_NONNEG (500000000, SUFFIX, sizeof (TYPE));
 459   TESTVAL_NONNEG (900000000, SUFFIX, sizeof (TYPE));
 460   TESTVAL_NONNEG (1000000000, SUFFIX, sizeof (TYPE));
 461   TESTVAL_NONNEG_BIG (5000000000, SUFFIX, sizeof (TYPE));
 462   TESTVAL_NONNEG_BIG (9000000000, SUFFIX, sizeof (TYPE));
 463   TESTVAL_NONNEG_BIG (10000000000, SUFFIX, sizeof (TYPE));
 464   TESTVAL_NONNEG_BIG (50000000000, SUFFIX, sizeof (TYPE));
 465   TESTVAL_NONNEG_BIG (90000000000, SUFFIX, sizeof (TYPE));
 466   TESTVAL_NONNEG_BIG (100000000000, SUFFIX, sizeof (TYPE));
 467   TESTVAL_NONNEG_BIG (500000000000, SUFFIX, sizeof (TYPE));
 468   TESTVAL_NONNEG_BIG (900000000000, SUFFIX, sizeof (TYPE));
 469   TESTVAL_NONNEG_BIG (1000000000000, SUFFIX, sizeof (TYPE));
 470   TESTVAL_NONNEG_BIG (5000000000000, SUFFIX, sizeof (TYPE));
 471   TESTVAL_NONNEG_BIG (9000000000000, SUFFIX, sizeof (TYPE));
 472   TESTVAL_NONNEG_BIG (10000000000000, SUFFIX, sizeof (TYPE));
 473   TESTVAL_NONNEG_BIG (50000000000000, SUFFIX, sizeof (TYPE));
 474   TESTVAL_NONNEG_BIG (90000000000000, SUFFIX, sizeof (TYPE));
 475   TESTVAL_NONNEG_BIG (100000000000000, SUFFIX, sizeof (TYPE));
 476   TESTVAL_NONNEG_BIG (500000000000000, SUFFIX, sizeof (TYPE));
 477   TESTVAL_NONNEG_BIG (900000000000000, SUFFIX, sizeof (TYPE));
 478   TESTVAL_NONNEG_BIG (1000000000000000, SUFFIX, sizeof (TYPE));
 479   TESTVAL_NONNEG_BIG (5000000000000000, SUFFIX, sizeof (TYPE));
 480   TESTVAL_NONNEG_BIG (9000000000000000, SUFFIX, sizeof (TYPE));
 481   TESTVAL_NONNEG_BIG (10000000000000000, SUFFIX, sizeof (TYPE));
 482   TESTVAL_NONNEG_BIG (50000000000000000, SUFFIX, sizeof (TYPE));
 483   TESTVAL_NONNEG_BIG (90000000000000000, SUFFIX, sizeof (TYPE));
 484   TESTVAL_NONNEG_BIG (100000000000000000, SUFFIX, sizeof (TYPE));
 485   TESTVAL_NONNEG_BIG (500000000000000000, SUFFIX, sizeof (TYPE));
 486   TESTVAL_NONNEG_BIG (900000000000000000, SUFFIX, sizeof (TYPE));
 487   TESTVAL_NONNEG_BIG (1000000000000000000, SUFFIX, sizeof (TYPE));
 488   TESTVAL_NONNEG_BIG (5000000000000000000, SUFFIX, sizeof (TYPE));
 489   TESTVAL_NONNEG_BIG (9000000000000000000, SUFFIX, sizeof (TYPE));
 490
 491   TESTVAL_NEG (0, SUFFIX, sizeof (TYPE));
 492   TESTVAL_NEG (-1, SUFFIX, sizeof (TYPE));
 493   TESTVAL_NEG (-5, SUFFIX, sizeof (TYPE));
 494   TESTVAL_NEG (-9, SUFFIX, sizeof (TYPE));
 495   TESTVAL_NEG (-10, SUFFIX, sizeof (TYPE));
 496   TESTVAL_NEG (-50, SUFFIX, sizeof (TYPE));
 497   TESTVAL_NEG (-90, SUFFIX, sizeof (TYPE));
 498   TESTVAL_NEG (-100, SUFFIX, sizeof (TYPE));
 499   TESTVAL_NEG (-500, SUFFIX, sizeof (TYPE));
 500   TESTVAL_NEG (-900, SUFFIX, sizeof (TYPE));
 501   TESTVAL_NEG (-1000, SUFFIX, sizeof (TYPE));
 502   TESTVAL_NEG (-5000, SUFFIX, sizeof (TYPE));
 503   TESTVAL_NEG (-9000, SUFFIX, sizeof (TYPE));
 504   TESTVAL_NEG (-10000, SUFFIX, sizeof (TYPE));
 505   TESTVAL_NEG (-50000, SUFFIX, sizeof (TYPE));
 506   TESTVAL_NEG (-90000, SUFFIX, sizeof (TYPE));
 507   TESTVAL_NEG (-100000, SUFFIX, sizeof (TYPE));
 508   TESTVAL_NEG (-500000, SUFFIX, sizeof (TYPE));
 509   TESTVAL_NEG (-900000, SUFFIX, sizeof (TYPE));
 510   TESTVAL_NEG (-1000000, SUFFIX, sizeof (TYPE));
 511   TESTVAL_NEG (-5000000, SUFFIX, sizeof (TYPE));
 512   TESTVAL_NEG (-9000000, SUFFIX, sizeof (TYPE));
 513   TESTVAL_NEG (-10000000, SUFFIX, sizeof (TYPE));
 514   TESTVAL_NEG (-50000000, SUFFIX, sizeof (TYPE));
 515   TESTVAL_NEG (-90000000, SUFFIX, sizeof (TYPE));
 516   TESTVAL_NEG (-100000000, SUFFIX, sizeof (TYPE));
 517   TESTVAL_NEG (-500000000, SUFFIX, sizeof (TYPE));
 518   TESTVAL_NEG (-900000000, SUFFIX, sizeof (TYPE));
 519   TESTVAL_NEG (-1000000000, SUFFIX, sizeof (TYPE));
 520   TESTVAL_NEG_BIG (-5000000000, SUFFIX, sizeof (TYPE));
 521   TESTVAL_NEG_BIG (-9000000000, SUFFIX, sizeof (TYPE));
 522   TESTVAL_NEG_BIG (-10000000000, SUFFIX, sizeof (TYPE));
 523   TESTVAL_NEG_BIG (-50000000000, SUFFIX, sizeof (TYPE));
 524   TESTVAL_NEG_BIG (-90000000000, SUFFIX, sizeof (TYPE));
 525   TESTVAL_NEG_BIG (-100000000000, SUFFIX, sizeof (TYPE));
 526   TESTVAL_NEG_BIG (-500000000000, SUFFIX, sizeof (TYPE));
 527   TESTVAL_NEG_BIG (-900000000000, SUFFIX, sizeof (TYPE));
 528   TESTVAL_NEG_BIG (-1000000000000, SUFFIX, sizeof (TYPE));
 529   TESTVAL_NEG_BIG (-5000000000000, SUFFIX, sizeof (TYPE));
 530   TESTVAL_NEG_BIG (-9000000000000, SUFFIX, sizeof (TYPE));
 531   TESTVAL_NEG_BIG (-10000000000000, SUFFIX, sizeof (TYPE));
 532   TESTVAL_NEG_BIG (-50000000000000, SUFFIX, sizeof (TYPE));
 533   TESTVAL_NEG_BIG (-90000000000000, SUFFIX, sizeof (TYPE));
 534   TESTVAL_NEG_BIG (-100000000000000, SUFFIX, sizeof (TYPE));
 535   TESTVAL_NEG_BIG (-500000000000000, SUFFIX, sizeof (TYPE));
 536   TESTVAL_NEG_BIG (-900000000000000, SUFFIX, sizeof (TYPE));
 537   TESTVAL_NEG_BIG (-1000000000000000, SUFFIX, sizeof (TYPE));
 538   TESTVAL_NEG_BIG (-5000000000000000, SUFFIX, sizeof (TYPE));
 539   TESTVAL_NEG_BIG (-9000000000000000, SUFFIX, sizeof (TYPE));
 540   TESTVAL_NEG_BIG (-10000000000000000, SUFFIX, sizeof (TYPE));
 541   TESTVAL_NEG_BIG (-50000000000000000, SUFFIX, sizeof (TYPE));
 542   TESTVAL_NEG_BIG (-90000000000000000, SUFFIX, sizeof (TYPE));
 543   TESTVAL_NEG_BIG (-100000000000000000, SUFFIX, sizeof (TYPE));
 544   TESTVAL_NEG_BIG (-500000000000000000, SUFFIX, sizeof (TYPE));
 545   TESTVAL_NEG_BIG (-900000000000000000, SUFFIX, sizeof (TYPE));
 546   TESTVAL_NEG_BIG (-1000000000000000000, SUFFIX, sizeof (TYPE));
 547   TESTVAL_NEG_BIG (-5000000000000000000, SUFFIX, sizeof (TYPE));
 548   TESTVAL_NEG_BIG (-9000000000000000000, SUFFIX, sizeof (TYPE));
 549 }
 550
 551
 552 int
 553 main ()
 554 {
 555   zeroes_32 ();
 556   zeroes_64 ();
 557   zeroes_128 ();
 558   round_32 ();
 559   round_64 ();
 560
 561   FINISH
 562 }