gcc/testsuite/gcc.dg/dfp/pr39035.c

   1 /* { dg-do run } */
   2 /* { dg-options "-std=gnu99 -O" } */
   3
   4 /* DFP TR 24732 == WG14 / N1176, N1312 */
   5 /* Based on a test from Fred Tydeman.  */
   6
   7 extern void abort (void);
   8 int failures = 0;
   9
  10 #ifdef DBG
  11 #include <stdio.h>
  12 #define FAILURE(MSG) { printf ("line %d: %s\n", __LINE__, MSG); failures++; }
  13 #else
  14 #define FAILURE(MSG) failures++;
  15 #endif
  16
  17 /* Test runtime computations.  */
  18
  19 void
  20 runtime32 (void)
  21 {
  22   volatile _Decimal32 d;
  23   d = 0.0DF;
  24   if (d)
  25     FAILURE ("0.0DF should be zero")
  26 }
  27
  28 void
  29 runtime64 (void)
  30 {
  31   volatile _Decimal64 d;
  32   d = 0.0DD;
  33   if (d)
  34     FAILURE ("0.0DD should be zero")
  35 }
  36
  37 void
  38 runtime128 (void)
  39 {
  40   volatile _Decimal128 d;
  41   d = 0.0DL;
  42   if (d)
  43     FAILURE ("0.0DL should be zero")
  44 }
  45
  46 void
  47 fold32 (void)
  48 {
  49   if (0.0DF)
  50     FAILURE ("0.0DF should be zero")
  51 }
  52
  53 void
  54 fold64 (void)
  55 {
  56   if (0.0DD)
  57     FAILURE ("0.0DD should be zero")
  58 }
  59
  60 void
  61 fold128 (void)
  62 {
  63   if (0.0DL)
  64     FAILURE ("0.0DL should be zero")
  65 }
  66
  67 int
  68 main(void)
  69 {
  70   runtime32 ();
  71   runtime64 ();
  72   runtime128 ();
  73
  74   fold32 ();
  75   fold64 ();
  76   fold128 ();
  77
  78   if (failures != 0)
  79     abort ();
  80   return 0;
  81 }