1  /* { dg-options "-w" } */
       2  
       3  /* This test assumes IEEE float and double.  */
       4  
       5  #define __STDC_WANT_DEC_FP__
       6  #include <float.h>
       7  
       8  #include "convert.h"
       9  
      10  volatile _Decimal32 sd;
      11  volatile _Decimal64 dd;
      12  volatile _Decimal128 td;
      13  volatile float sf;
      14  volatile double df;
      15  
      16  /* Check values that are too large for the result type.  */
      17  CONVERT_TO_PINF (301, sd, sf, 4.e+38df, f)
      18  CONVERT_TO_PINF (303, dd, sf, 4.e+38dd, f)
      19  CONVERT_TO_PINF (302, sd, sf, 9.9e+384df, f)
      20  CONVERT_TO_PINF (304, dd, sf, 9.9e+384dd, f)
      21  CONVERT_TO_PINF (305, td, sf, 4.e+38dl, f)
      22  CONVERT_TO_PINF (306, td, sf, 1.e+39dl, f)
      23  CONVERT_TO_MINF (311, sd, sf, -4.e+38df, f)
      24  CONVERT_TO_MINF (312, dd, sf, -4.e+38dd, f)
      25  CONVERT_TO_MINF (313, sd, sf, -9.9e+384df, f)
      26  CONVERT_TO_MINF (314, dd, sf, -9.9e+384dd, f)
      27  CONVERT_TO_MINF (315, td, sf, -4.e+38dl, f)
      28  CONVERT_TO_MINF (316, td, sf, -1.e+39dl, f)
      29  
      30  CONVERT_TO_PINF (321, dd, df, 1.8e+308dd,)
      31  CONVERT_TO_PINF (322, dd, df, 9.9e+384dd,)
      32  CONVERT_TO_PINF (323, td, df, 1.8e+308dl,)
      33  CONVERT_TO_PINF (324, td, df, 9.9e+384dl,)
      34  CONVERT_TO_PINF (325, dd, df, 1.e309dd,)
      35  CONVERT_TO_PINF (326, td, df, 1.e309dl,)
      36  CONVERT_TO_MINF (331, dd, df, -1.8e+308dd,)
      37  CONVERT_TO_MINF (332, dd, df, -9.9e+384dd,)
      38  CONVERT_TO_MINF (333, td, df, -1.8e+308dl,)
      39  CONVERT_TO_MINF (334, td, df, -9.9e+384dl,)
      40  CONVERT_TO_MINF (335, dd, df, -1.e309dd,)
      41  CONVERT_TO_MINF (336, td, df, -1.e309dl,)
      42  
      43  CONVERT_TO_PINF (341, df, sd, 1.0e+97, d32)
      44  CONVERT_TO_PINF (342, df, sd, 1.6e+308, d32)
      45  CONVERT_TO_MINF (351, df, sd, -1.0e+97, d32)
      46  CONVERT_TO_MINF (352, df, sd, -1.6e+308, d32)
      47  
      48  int
      49  main ()
      50  {
      51    convert_301 ();
      52    convert_302 ();
      53    convert_303 ();
      54    convert_304 ();
      55    convert_305 ();
      56    convert_306 ();
      57    convert_311 ();
      58    convert_312 ();
      59    convert_313 ();
      60    convert_314 ();
      61    convert_315 ();
      62    convert_316 ();
      63  
      64    convert_321 ();
      65    convert_322 ();
      66    convert_323 ();
      67    convert_324 ();
      68    convert_325 ();
      69    convert_326 ();
      70    convert_331 ();
      71    convert_332 ();
      72    convert_333 ();
      73    convert_334 ();
      74    convert_335 ();
      75    convert_336 ();
      76  
      77    convert_341 ();
      78    convert_342 ();
      79    convert_351 ();
      80    convert_352 ();
      81  
      82    FINISH
      83  }