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 from DFP to smaller types.  */
       8  
       9  _Decimal32 var32;
      10  _Decimal64 var64;
      11  _Decimal128 var128;
      12  _Float16 var16;
      13  
      14  void __attribute__ ((__noinline__)) foo32 (_Decimal32 param32)
      15  {
      16    var16 = param32;
      17  }
      18  
      19  void __attribute__ ((__noinline__)) foo64 (_Decimal64 param64)
      20  {
      21    var16 = param64;
      22    var32 = param64;
      23  }
      24  
      25  void __attribute__ ((__noinline__)) foo128 (_Decimal128 param128)
      26  {
      27    var16 = param128;
      28    var32 = param128;
      29    var64 = param128;
      30  }
      31  
      32  int main ()
      33  {
      34    foo32 (var32);
      35    foo64 (var64);
      36    foo128 (var128);
      37    return 0;
      38  }
      39  
      40  /* { dg-final { scan-assembler-times {\t__bid_truncsdhf} 2 { target { dfp_bid } } } } */
      41  /* { dg-final { scan-assembler-times {\t__bid_truncddhf} 2 { target { dfp_bid } } } } */
      42  /* { dg-final { scan-assembler-times {\t__bid_truncddsd2} 2 { target { dfp_bid } } } } */
      43  /* { dg-final { scan-assembler-times {\t__bid_trunctdhf} 2 { target { dfp_bid } } } } */
      44  /* { dg-final { scan-assembler-times {\t__bid_trunctdsd2} 2 { target { dfp_bid } } } } */
      45  /* { dg-final { scan-assembler-times {\t__bid_trunctddd2} 2 { target { dfp_bid } } } } */