1  /* { dg-do run { target { powerpc*-*-* } } } */
       2  /* { dg-require-effective-target lp64 } */
       3  /* { dg-require-effective-target p9vector_hw } */
       4  /* { dg-options "-mdejagnu-cpu=power9" } */
       5  
       6  /* This test should succeed only on 64-bit configurations.  */
       7  #include <altivec.h>
       8  #include <stdlib.h>
       9  
      10  unsigned long long int
      11  get_unbiased_exponent (__ieee128 *p)
      12  {
      13    __ieee128 source = *p;
      14  
      15    return scalar_extract_exp (source) - 16383;
      16  }
      17  
      18  int
      19  main ()
      20  {
      21    __ieee128 x = (__ieee128) (((__int128) 0x1100LL) << 114);
      22    __ieee128 z = (__ieee128) (((__int128) 0x1101LL) << 112);
      23  
      24    if (get_unbiased_exponent (&x) != 126)
      25      abort ();
      26    if (get_unbiased_exponent (&z) != 124)
      27      abort ();
      28    return 0;
      29  }