1  /* { dg-do run } */
       2  /* { dg-require-effective-target float16_runtime } */
       3  /* { dg-require-effective-target dfprt } */
       4  /* { dg-options "-save-temps" } */
       5  /* { dg-add-options float16 } */
       6  
       7  /* Test conversions to/from DFP values.  */
       8  
       9  extern void abort ();
      10  
      11  _Decimal32 var32 = 1.2df;
      12  
      13  int __attribute__ ((__noinline__)) foo32 (_Decimal32 param32, _Decimal64 param64, _Decimal128 param128, _Float16 param16)
      14  {
      15    return (param32 == var32)
      16      + (param64 == var32)
      17      + (param128 == var32)
      18      /* Small enough relative difference?  */
      19      + ((((_Decimal32)param16 - var32) / var32) < 0.002df);
      20  }
      21  
      22  _Decimal64 var64 = 1.2dd;
      23  
      24  int __attribute__ ((__noinline__)) foo64 (_Decimal32 param32, _Decimal64 param64, _Decimal128 param128, _Float16 param16)
      25  {
      26    return (param32 == var64)
      27      + (param64 == var64)
      28      + (param128 == var64)
      29      /* Small enough relative difference?  */
      30      + ((((_Decimal64)param16 - var64) / var64) < 0.002dd);
      31  }
      32  
      33  _Decimal128 var128 = 1.2dl;
      34  
      35  int __attribute__ ((__noinline__)) foo128 (_Decimal32 param32, _Decimal64 param64, _Decimal128 param128, _Float16 param16)
      36  {
      37    return (param32 == var128)
      38      + (param64 == var128)
      39      + (param128 == var128)
      40      /* Small enough relative difference?  */
      41      + ((((_Decimal128)param16 - var128) / var128) < 0.002dl);
      42  }
      43  
      44  int main()
      45  {
      46    if (foo32 (1.2df, 1.2dd, 1.2dl, (_Float16)1.2) != 4)
      47      abort ();
      48  
      49    if (foo64 (1.2df, 1.2dd, 1.2dl, (_Float16)1.2) != 4)
      50      abort ();
      51  
      52    if (foo128 (1.2df, 1.2dd, 1.2dl, (_Float16)1.2) != 4)
      53      abort ();
      54  
      55    return 0;
      56  }
      57  
      58  /* { dg-final { scan-assembler-times {\t__bid_extendsddd2} 3 { target { dfp_bid } } } } */
      59  /* { dg-final { scan-assembler-times {\t__bid_extendsdtd2} 3 { target { dfp_bid } } } } */
      60  /* { dg-final { scan-assembler-times {\t__bid_extendddtd2} 3 { target { dfp_bid } } } } */
      61  /* { dg-final { scan-assembler-times {\t__bid_extendhfsd} 2 { target { dfp_bid } } } } */
      62  /* { dg-final { scan-assembler-times {\t__bid_extendhfdd} 2 { target { dfp_bid } } } } */
      63  /* { dg-final { scan-assembler-times {\t__bid_extendhftd} 2 { target { dfp_bid } } } } */