gcc/testsuite/gcc.dg/dfp/convert-dfp-round-thread.c

   1 /* { dg-options "-std=gnu99 -D_GNU_SOURCE -pthread" } */
   2 /* { dg-do run { target i?86-*-linux* i?86-*-gnu* x86_64-*-linux* } } */
   3 /* { dg-require-effective-target error_h } */
   4
   5
   6 /* N1150 5.2: Conversions among decimal floating types and between
   7    decimal floating types and generic floating types.
   8    C99 6.3.1.5(3) New.
   9
  10    Perform conversions between DFP types in which the assigned value
  11    cannot be represented exactly in the result and must be rounded
  12    correctly according to the current rounding mode.
  13
  14    Normally this would not be part of compiler testing, but conversions
  15    are currently handled in libgcc via decNumber.  */
  16
  17 #include <pthread.h>
  18 #include <error.h>
  19 #include <stdlib.h>
  20 #include <stdio.h>
  21 #include <stddef.h>
  22 #include "dfp-round.h"
  23
  24 extern void abort (void);
  25 static __thread int failcnt = 0;
  26
  27 /* Support compiling the test to report individual failures; default is
  28    to abort as soon as a check fails.  */
  29 #ifdef DBG
  30 #include <stdio.h>
  31 #define FAILURE { printf ("failed at line %d\n", __LINE__); failcnt++; }
  32 #else
  33 #define FAILURE abort ();
  34 #endif
  35
  36 pthread_mutex_t mut1 = PTHREAD_MUTEX_INITIALIZER;
  37 pthread_mutex_t mut2 = PTHREAD_MUTEX_INITIALIZER;
  38 pthread_mutex_t mut3 = PTHREAD_MUTEX_INITIALIZER;
  39 pthread_mutex_t mut4 = PTHREAD_MUTEX_INITIALIZER;
  40 pthread_mutex_t mut5 = PTHREAD_MUTEX_INITIALIZER;
  41 pthread_cond_t cond1 = PTHREAD_COND_INITIALIZER;
  42 pthread_cond_t cond2 = PTHREAD_COND_INITIALIZER;
  43 pthread_cond_t cond3 = PTHREAD_COND_INITIALIZER;
  44 pthread_cond_t cond4 = PTHREAD_COND_INITIALIZER;
  45 pthread_cond_t cond5 = PTHREAD_COND_INITIALIZER;
  46 pthread_barrier_t bar1;
  47 pthread_barrier_t bar2;
  48 pthread_barrier_t bar3;
  49 pthread_barrier_t bar4;
  50 pthread_barrier_t bar5;
  51
  52 __thread _Decimal32 d32;
  53 __thread _Decimal64 d64;
  54 __thread _Decimal128 d128;
  55
  56 _Decimal32 d64_to_d32 (_Decimal64 d) { return d; }
  57 _Decimal64 d128_to_d64 (_Decimal128 d) { return d; }
  58 _Decimal32 d128_to_d32 (_Decimal128 d) { return d; }
  59
  60 int
  61 do_d64_to_d32 (_Decimal64 orig, _Decimal32 exp)
  62 {
  63   d64 = orig;
  64   d32 = d64_to_d32 (d64);
  65   return (d32 == exp);
  66 }
  67
  68 int
  69 do_d128_to_d32 (_Decimal128 orig, _Decimal32 exp)
  70 {
  71   d128 = orig;
  72   d32 = d128_to_d32 (d128);
  73   return (d32 == exp);
  74 }
  75
  76 int
  77 do_d128_to_d64 (_Decimal128 orig, _Decimal64 exp)
  78 {
  79   d128 = orig;
  80   d64 = d128_to_d64 (d128);
  81   return (d64 == exp);
  82 }
  83
  84 void *
  85 downward (void *arg)
  86 {
  87   int err;
  88
  89   DFP_SETROUND (FE_DEC_DOWNWARD);
  90
  91   err = pthread_mutex_lock (&mut1);
  92   if (err != 0)
  93     error (EXIT_FAILURE, err, "downward: failed to lock");
  94
  95   err = pthread_barrier_wait (&bar1);
  96   if (err != 0 && err != PTHREAD_BARRIER_SERIAL_THREAD)
  97     {
  98       puts ("downward: barrier_wait failed");
  99       exit (1);
 100     }
 101
 102   err = pthread_cond_wait (&cond1, &mut1);
 103   if (err != 0)
 104     error (EXIT_FAILURE, err, "downward: failed to wait");
 105
 106   err = pthread_mutex_unlock (&mut1);
 107   if (err != 0)
 108     error (EXIT_FAILURE, err, "downward: failed to unlock");
 109
 110   if (!do_d64_to_d32 (1.1111125dd, 1.111112df)) FAILURE
 111   if (!do_d64_to_d32 (1.1111135dd, 1.111113df)) FAILURE
 112   if (!do_d64_to_d32 (-1.1111125dd, -1.111113df)) FAILURE
 113   if (!do_d64_to_d32 (-1.1111135dd, -1.111114df)) FAILURE
 114   if (!do_d128_to_d32 (1.1111125dl, 1.111112df)) FAILURE
 115   if (!do_d128_to_d32 (1.1111135dl, 1.111113df)) FAILURE
 116   if (!do_d128_to_d32 (-1.1111125dl, -1.111113df)) FAILURE
 117   if (!do_d128_to_d32 (-1.1111135dl, -1.111114df)) FAILURE
 118   if (!do_d128_to_d64 (1.1111111111111125dl, 1.111111111111112dd)) FAILURE
 119   if (!do_d128_to_d64 (1.1111111111111135dl, 1.111111111111113dd)) FAILURE
 120   if (!do_d128_to_d64 (-1.1111111111111125dl, -1.111111111111113dd)) FAILURE
 121   if (!do_d128_to_d64 (-1.1111111111111135dl, -1.111111111111114dd)) FAILURE
 122
 123 #ifdef DBG
 124   if (failcnt)
 125     printf ("downward: %d fails\n", failcnt);
 126 #endif
 127   return (void *) (ptrdiff_t) failcnt;
 128 }
 129
 130 void *
 131 tonearest (void *arg)
 132 {
 133   int err;
 134   DFP_SETROUND (FE_DEC_TONEAREST);
 135
 136   err = pthread_mutex_lock (&mut2);
 137   if (err != 0)
 138     error (EXIT_FAILURE, err, "tonearest: failed to lock");
 139
 140   err = pthread_barrier_wait (&bar2);
 141   if (err != 0 && err != PTHREAD_BARRIER_SERIAL_THREAD)
 142     {
 143       puts ("tonearest: barrier_wait failed");
 144       exit (1);
 145     }
 146
 147   err = pthread_cond_wait (&cond2, &mut2);
 148   if (err != 0)
 149     error (EXIT_FAILURE, err, "tonearest: failed to wait");
 150
 151   err = pthread_mutex_unlock (&mut2);
 152   if (err != 0)
 153     error (EXIT_FAILURE, err, "tonearest: failed to unlock");
 154
 155   if (!do_d64_to_d32 (1.1111125dd, 1.111112df)) FAILURE
 156   if (!do_d64_to_d32 (1.1111135dd, 1.111114df)) FAILURE
 157   if (!do_d64_to_d32 (-1.1111125dd, -1.111112df)) FAILURE
 158   if (!do_d64_to_d32 (-1.1111135dd, -1.111114df)) FAILURE
 159   if (!do_d128_to_d32 (1.1111125dl, 1.111112df)) FAILURE
 160   if (!do_d128_to_d32 (1.1111135dl, 1.111114df)) FAILURE
 161   if (!do_d128_to_d32 (-1.1111125dl, -1.111112df)) FAILURE
 162   if (!do_d128_to_d32 (-1.1111135dl, -1.111114df)) FAILURE
 163   if (!do_d128_to_d64 (1.1111111111111125dl, 1.111111111111112dd)) FAILURE
 164   if (!do_d128_to_d64 (1.1111111111111135dl, 1.111111111111114dd)) FAILURE
 165   if (!do_d128_to_d64 (-1.1111111111111125dl, -1.111111111111112dd)) FAILURE
 166   if (!do_d128_to_d64 (-1.1111111111111135dl, -1.111111111111114dd)) FAILURE
 167
 168 #ifdef DBG
 169   if (failcnt)
 170     printf ("tonearest: %d fails\n", failcnt);
 171 #endif
 172   return (void *) (ptrdiff_t) failcnt;
 173 }
 174
 175 void *
 176 toneareastfromzero (void *arg)
 177 {
 178   int err;
 179   DFP_SETROUND (FE_DEC_TONEARESTFROMZERO);
 180
 181   err = pthread_mutex_lock (&mut3);
 182   if (err != 0)
 183     error (EXIT_FAILURE, err, "toneareastfromzero: failed to lock");
 184
 185   err = pthread_barrier_wait (&bar3);
 186   if (err != 0 && err != PTHREAD_BARRIER_SERIAL_THREAD)
 187     {
 188       puts ("toneareastfromzero: barrier_wait failed");
 189       exit (1);
 190     }
 191
 192   err = pthread_cond_wait (&cond3, &mut3);
 193   if (err != 0)
 194     error (EXIT_FAILURE, err, "toneareastfromzero: failed to wait");
 195
 196   err = pthread_mutex_unlock (&mut3);
 197   if (err != 0)
 198     error (EXIT_FAILURE, err, "toneareastfromzero: failed to unlock");
 199
 200   if (!do_d64_to_d32 (1.1111125dd, 1.111113df)) FAILURE
 201   if (!do_d64_to_d32 (1.1111135dd, 1.111114df)) FAILURE
 202   if (!do_d64_to_d32 (-1.1111125dd, -1.111113df)) FAILURE
 203   if (!do_d64_to_d32 (-1.1111135dd, -1.111114df)) FAILURE
 204   if (!do_d128_to_d32 (1.1111125dl, 1.111113df)) FAILURE
 205   if (!do_d128_to_d32 (1.1111135dl, 1.111114df)) FAILURE
 206   if (!do_d128_to_d32 (-1.1111125dl, -1.111113df)) FAILURE
 207   if (!do_d128_to_d32 (-1.1111135dl, -1.111114df)) FAILURE
 208   if (!do_d128_to_d64 (1.1111111111111125dl, 1.111111111111113dd)) FAILURE
 209   if (!do_d128_to_d64 (1.1111111111111135dl, 1.111111111111114dd)) FAILURE
 210   if (!do_d128_to_d64 (-1.1111111111111125dl, -1.111111111111113dd)) FAILURE
 211   if (!do_d128_to_d64 (-1.1111111111111135dl, -1.111111111111114dd)) FAILURE
 212
 213 #ifdef DBG
 214   if (failcnt)
 215     printf ("toneareastfromzero: %d fails\n", failcnt);
 216 #endif
 217   return (void *) (ptrdiff_t) failcnt;
 218 }
 219
 220 void *
 221 towardzero (void *arg)
 222 {
 223   int err;
 224   DFP_SETROUND (FE_DEC_TOWARDZERO);
 225
 226   err = pthread_mutex_lock (&mut4);
 227   if (err != 0)
 228     error (EXIT_FAILURE, err, "towardzero: failed to lock");
 229
 230   err = pthread_barrier_wait (&bar4);
 231   if (err != 0 && err != PTHREAD_BARRIER_SERIAL_THREAD)
 232     {
 233       puts ("towardzero: barrier_wait failed");
 234       exit (1);
 235     }
 236
 237   err = pthread_cond_wait (&cond4, &mut4);
 238   if (err != 0)
 239     error (EXIT_FAILURE, err, "towardzero: failed to wait");
 240
 241   err = pthread_mutex_unlock (&mut4);
 242   if (err != 0)
 243     error (EXIT_FAILURE, err, "towardzero: failed to unlock");
 244
 245   if (!do_d64_to_d32 (1.1111125dd, 1.111112df)) FAILURE
 246   if (!do_d64_to_d32 (1.1111135dd, 1.111113df)) FAILURE
 247   if (!do_d64_to_d32 (-1.1111125dd, -1.111112df)) FAILURE
 248   if (!do_d64_to_d32 (-1.1111135dd, -1.111113df)) FAILURE
 249   if (!do_d128_to_d32 (1.1111125dl, 1.111112df)) FAILURE
 250   if (!do_d128_to_d32 (1.1111135dl, 1.111113df)) FAILURE
 251   if (!do_d128_to_d32 (-1.1111125dl, -1.111112df)) FAILURE
 252   if (!do_d128_to_d32 (-1.1111135dl, -1.111113df)) FAILURE
 253   if (!do_d128_to_d64 (1.1111111111111125dl, 1.111111111111112dd)) FAILURE
 254   if (!do_d128_to_d64 (1.1111111111111135dl, 1.111111111111113dd)) FAILURE
 255   if (!do_d128_to_d64 (-1.1111111111111125dl, -1.111111111111112dd)) FAILURE
 256   if (!do_d128_to_d64 (-1.1111111111111135dl, -1.111111111111113dd)) FAILURE
 257
 258 #ifdef DBG
 259   if (failcnt)
 260     printf ("towardzero: %d fails\n", failcnt);
 261 #endif
 262   return (void *) (ptrdiff_t) failcnt;
 263 }
 264
 265 void *
 266 upward (void *arg)
 267 {
 268   int err;
 269   DFP_SETROUND (FE_DEC_UPWARD);
 270
 271   err = pthread_mutex_lock (&mut5);
 272   if (err != 0)
 273     error (EXIT_FAILURE, err, "upward: failed to lock");
 274
 275   err = pthread_barrier_wait (&bar5);
 276   if (err != 0 && err != PTHREAD_BARRIER_SERIAL_THREAD)
 277     {
 278       puts ("upward: barrier_wait failed");
 279       exit (1);
 280     }
 281
 282   err = pthread_cond_wait (&cond5, &mut5);
 283   if (err != 0)
 284     error (EXIT_FAILURE, err, "upward: failed to wait");
 285
 286   err = pthread_mutex_unlock (&mut5);
 287   if (err != 0)
 288     error (EXIT_FAILURE, err, "upward: failed to unlock");
 289
 290   if (!do_d64_to_d32 (1.1111125dd, 1.111113df)) FAILURE
 291   if (!do_d64_to_d32 (1.1111135dd, 1.111114df)) FAILURE
 292   if (!do_d64_to_d32 (-1.1111125dd, -1.111112df)) FAILURE
 293   if (!do_d64_to_d32 (-1.1111135dd, -1.111113df)) FAILURE
 294   if (!do_d128_to_d32 (1.1111125dl, 1.111113df)) FAILURE
 295   if (!do_d128_to_d32 (1.1111135dl, 1.111114df)) FAILURE
 296   if (!do_d128_to_d32 (-1.1111125dl, -1.111112df)) FAILURE
 297   if (!do_d128_to_d32 (-1.1111135dl, -1.111113df)) FAILURE
 298   if (!do_d128_to_d64 (1.1111111111111125dl, 1.111111111111113dd)) FAILURE
 299   if (!do_d128_to_d64 (1.1111111111111135dl, 1.111111111111114dd)) FAILURE
 300   if (!do_d128_to_d64 (-1.1111111111111125dl, -1.111111111111112dd)) FAILURE
 301   if (!do_d128_to_d64 (-1.1111111111111135dl, -1.111111111111113dd)) FAILURE
 302
 303 #ifdef DBG
 304   if (failcnt)
 305     printf ("upward: %d fails\n", failcnt);
 306 #endif
 307   return (void *) (ptrdiff_t) failcnt;
 308 }
 309
 310 int
 311 main (void)
 312 {
 313   int err;
 314   int count = 0;
 315   void *ret;
 316   pthread_t down, up, tozero, fromzero, nearest;
 317
 318   if (pthread_barrier_init (&bar1, NULL, 2) != 0
 319       || pthread_barrier_init (&bar2, NULL, 2) != 0
 320       || pthread_barrier_init (&bar3, NULL, 2) != 0
 321       || pthread_barrier_init (&bar4, NULL, 2) != 0
 322       || pthread_barrier_init (&bar5, NULL, 2) != 0)
 323     {
 324       puts ("parent: failed to init barrier");
 325       return 1;
 326     }
 327
 328   if (pthread_create (&down, NULL, downward, NULL) != 0)
 329     {
 330       puts ("parent: failed to create");
 331       return 1;
 332     }
 333
 334   if (pthread_create (&nearest, NULL, tonearest, NULL) != 0)
 335     {
 336       puts ("create failed");
 337       return 1;
 338     }
 339
 340   if (pthread_create (&fromzero, NULL, toneareastfromzero, NULL) != 0)
 341     {
 342       puts ("create failed");
 343       return 1;
 344     }
 345
 346   if (pthread_create (&up, NULL, upward, NULL) != 0)
 347     {
 348       puts ("create failed");
 349       return 1;
 350     }
 351
 352   if (pthread_create (&tozero, NULL, towardzero, NULL) != 0)
 353     {
 354       puts ("create failed");
 355       return 1;
 356     }
 357
 358   err = pthread_barrier_wait (&bar1);
 359   if (err != 0 && err != PTHREAD_BARRIER_SERIAL_THREAD)
 360     {
 361       puts ("parent: failed to wait barrier 1");
 362       return 1;
 363     }
 364   err = pthread_barrier_wait (&bar2);
 365   if (err != 0 && err != PTHREAD_BARRIER_SERIAL_THREAD)
 366     {
 367       puts ("parent: failed to wait barrier 2");
 368       return 1;
 369     }
 370   err = pthread_barrier_wait (&bar3);
 371   if (err != 0 && err != PTHREAD_BARRIER_SERIAL_THREAD)
 372     {
 373       puts ("parent: failed to wait barrier 3");
 374       return 1;
 375     }
 376   err = pthread_barrier_wait (&bar4);
 377   if (err != 0 && err != PTHREAD_BARRIER_SERIAL_THREAD)
 378     {
 379       puts ("parent: failed to wait barrier 4");
 380       return 1;
 381     }
 382   err = pthread_barrier_wait (&bar5);
 383   if (err != 0 && err != PTHREAD_BARRIER_SERIAL_THREAD)
 384     {
 385       puts ("parent: failed to wait barrier 5");
 386       return 1;
 387     }
 388
 389   err = pthread_mutex_lock (&mut1);
 390   if (err != 0)
 391     error (EXIT_FAILURE, err, "parent: lock failed");
 392   err = pthread_mutex_lock (&mut2);
 393   if (err != 0)
 394     error (EXIT_FAILURE, err, "parent: lock failed");
 395   err = pthread_mutex_lock (&mut3);
 396   if (err != 0)
 397     error (EXIT_FAILURE, err, "parent: lock failed");
 398   err = pthread_mutex_lock (&mut4);
 399   if (err != 0)
 400     error (EXIT_FAILURE, err, "parent: lock failed");
 401   err = pthread_mutex_lock (&mut5);
 402   if (err != 0)
 403     error (EXIT_FAILURE, err, "parent: lock failed");
 404
 405   err = pthread_cond_signal(&cond1);
 406   if (err != 0)
 407     error (EXIT_FAILURE, err, "parent: broadcast failed");
 408   err = pthread_cond_signal(&cond2);
 409   if (err != 0)
 410     error (EXIT_FAILURE, err, "parent: broadcast failed");
 411   err = pthread_cond_signal(&cond3);
 412   if (err != 0)
 413     error (EXIT_FAILURE, err, "parent: broadcast failed");
 414   err = pthread_cond_signal(&cond4);
 415   if (err != 0)
 416     error (EXIT_FAILURE, err, "parent: broadcast failed");
 417   err = pthread_cond_signal(&cond5);
 418   if (err != 0)
 419     error (EXIT_FAILURE, err, "parent: broadcast failed");
 420
 421   err = pthread_mutex_unlock (&mut1);
 422   if (err != 0)
 423     {
 424       puts ("parent: failed to unlock");
 425       return 1;
 426     }
 427   err = pthread_mutex_unlock (&mut2);
 428   if (err != 0)
 429     {
 430       puts ("parent: failed to unlock");
 431       return 1;
 432     }
 433   err = pthread_mutex_unlock (&mut3);
 434   if (err != 0)
 435     {
 436       puts ("parent: failed to unlock");
 437       return 1;
 438     }
 439   err = pthread_mutex_unlock (&mut4);
 440   if (err != 0)
 441     {
 442       puts ("parent: failed to unlock");
 443       return 1;
 444     }
 445   err = pthread_mutex_unlock (&mut5);
 446   if (err != 0)
 447     {
 448       puts ("parent: failed to unlock");
 449       return 1;
 450     }
 451
 452   if (pthread_join (down, &ret) != 0)
 453     {
 454       puts ("pthread_join failed");
 455       return 1;
 456     }
 457   count += (int) (ptrdiff_t) ret;
 458
 459   if (pthread_join (up, &ret) != 0)
 460     {
 461       puts ("pthread_join failed");
 462       return 1;
 463     }
 464   count += (int) (ptrdiff_t) ret;
 465
 466   if (pthread_join (tozero, &ret) != 0)
 467     {
 468       puts ("pthread_join failed");
 469       return 1;
 470     }
 471   count += (int) (ptrdiff_t) ret;
 472
 473   if (pthread_join (fromzero, &ret) != 0)
 474     {
 475       puts ("pthread_join failed");
 476       return 1;
 477     }
 478   count += (int) (ptrdiff_t) ret;
 479
 480   if (pthread_join (nearest, &ret) != 0)
 481     {
 482       puts ("pthread_join failed");
 483       return 1;
 484     }
 485   count += (int) (ptrdiff_t) ret;
 486
 487   if (count)
 488     {
 489 #ifdef DBG
 490       printf ("Total: %d fails\n", count);
 491 #endif
 492       abort ();
 493     }
 494
 495   return 0;
 496 }