1  /* Test non-canonical BID significands: _Decimal64.  Bug 91226.  */
       2  /* { dg-do run } */
       3  /* { dg-require-effective-target dfp_bid } */
       4  /* { dg-options "-std=gnu2x -O2" } */
       5  
       6  extern void abort (void);
       7  extern void exit (int);
       8  
       9  union u
      10  {
      11    _Decimal64 d64;
      12    unsigned long long int u64;
      13  };
      14  
      15  int
      16  main (void)
      17  {
      18    union u x;
      19    _Decimal64 d64;
      20    x.u64 = 0x6c7386f26fc10001ULL;
      21    d64 = x.d64;
      22    volatile double d = d64;
      23    if (d == 0)
      24      exit (0);
      25    else
      26      abort ();
      27  }