gcc/testsuite/gcc.dg/dfp/convert-bfp-10.c

   1 /* This test assumes IEEE float and double.  */
   2
   3 #define __STDC_WANT_DEC_FP__
   4 #include <float.h>
   5
   6 #include "convert.h"
   7
   8 volatile _Decimal32 sd;
   9 volatile _Decimal64 dd;
  10 volatile _Decimal128 td;
  11 volatile float sf;
  12 volatile double df;
  13
  14 /* Conversions using denormalized float values.  */
  15 CONVERT_VALID (111, sf, sd, 1.2e-38f, 1.2e-38df, 0.df)
  16 CONVERT_VALID (112, sf, sd, 1.1e-38f, 1.1e-38df, 0.df)
  17 CONVERT_VALID (113, sf, sd, 1.1e-40f, 1.1e-40df, 1.1e-45df)
  18
  19 CONVERT_VALID (121, sd, sf, 1.2e-38df, 1.2e-38f, 0.f)
  20 CONVERT_VALID (122, sd, sf, 1.1e-38df, 1.1e-38f, 0.f)
  21
  22 CONVERT_VALID (131, sf, sd, -1.2e-38f, -1.2e-38df, 0.df)
  23 CONVERT_VALID (132, sf, sd, -1.1e-38f, -1.1e-38df, 0.df)
  24
  25 CONVERT_VALID (141, sd, sf, -1.2e-38df, -1.2e-38f, 0.f)
  26 CONVERT_VALID (142, sd, sf, -1.1e-38df, -1.1e-38f, 0.f)
  27
  28 /* Conversions using denormalized double values.  */
  29 CONVERT_VALID (211, df, sd, 1.2e-38, 1.2e-38df, 0.df)
  30 CONVERT_VALID (212, df, sd, 1.1e-38, 1.1e-38df, 0.df)
  31 CONVERT_VALID (213, df, sd, 1.e-40, 1.e-40df, 0.df)
  32 CONVERT_VALID (214, df, sd, 8.e-44, 8.e-44df, 0.df)
  33 CONVERT_VALID (215, df, sd, 9.e-44, 9.e-44df, 0.df)
  34 CONVERT_VALID (216, df, sd, 8.e-46, 8.e-46df, 0.df)
  35 CONVERT_VALID (217, df, sd, 7.e-46, 7.e-46df, 0.df)
  36
  37 CONVERT_VALID (221, sd, df, 1.2e-38df, 1.2e-38, 1.e-53)
  38 CONVERT_VALID (222, sd, df, 1.1e-38df, 1.1e-38, 1.e-53)
  39 CONVERT_VALID (223, sd, df, 1.e-40df, 1.e-40, 0.)
  40 CONVERT_VALID (224, sd, df, 8.e-44df, 8.e-44, 0.)
  41 CONVERT_VALID (225, sd, df, 9.e-44df, 9.e-44, 0.)
  42 CONVERT_VALID (226, sd, df, 8.e-46df, 8.e-46, 0.)
  43 CONVERT_VALID (227, sd, df, 7.e-46df, 7.e-46, 0.)
  44
  45 CONVERT_VALID (231, df, sd, -1.2e-38, -1.2e-38df, 0.df)
  46 CONVERT_VALID (232, df, sd, -1.1e-38f, -1.1e-38df, 0.df)
  47 CONVERT_VALID (233, df, sd, -1.e-40, -1.e-40df, 0.df)
  48 CONVERT_VALID (234, df, sd, -8.e-44, -8.e-44df, 0.df)
  49 CONVERT_VALID (235, df, sd, -9.e-44, -9.e-44df, 0.df)
  50 CONVERT_VALID (236, df, sd, -8.e-46, -8.e-46df, 0.df)
  51 CONVERT_VALID (237, df, sd, -7.e-46, -7.e-46df, 0.df)
  52
  53 CONVERT_VALID (241, sd, df, -1.2e-38df, -1.2e-38, 1.e-53)
  54 CONVERT_VALID (242, sd, df, -1.1e-38df, -1.1e-38, 1.e-53)
  55 CONVERT_VALID (243, sd, df, -1.e-40df, -1.e-40, 0.)
  56 CONVERT_VALID (244, sd, df, -8.e-44df, -8.e-44, 0.)
  57 CONVERT_VALID (245, sd, df, -9.e-44df, -9.e-44, 0.)
  58 CONVERT_VALID (246, sd, df, -8.e-46df, -8.e-46, 0.)
  59 CONVERT_VALID (247, sd, df, -7.e-46df, -7.e-46, 0.)
  60
  61 int
  62 main ()
  63 {
  64   convert_111 ();
  65   convert_112 ();
  66   convert_113 ();
  67
  68   convert_121 ();
  69   convert_122 ();
  70
  71   convert_131 ();
  72   convert_132 ();
  73
  74   convert_141 ();
  75   convert_142 ();
  76
  77   convert_211 ();
  78   convert_212 ();
  79   convert_213 ();
  80   convert_214 ();
  81   convert_215 ();
  82   convert_216 ();
  83   convert_217 ();
  84
  85   convert_221 ();
  86   convert_222 ();
  87   convert_223 ();
  88   convert_224 ();
  89   convert_225 ();
  90   convert_226 ();
  91   convert_227 ();
  92
  93   convert_231 ();
  94   convert_232 ();
  95   convert_233 ();
  96   convert_234 ();
  97   convert_235 ();
  98   convert_236 ();
  99   convert_237 ();
 100
 101   convert_241 ();
 102   convert_242 ();
 103   convert_243 ();
 104   convert_244 ();
 105   convert_245 ();
 106   convert_246 ();
 107   convert_247 ();
 108
 109   FINISH
 110 }