1  /* { dg-do compile { target { powerpc*-*-* } } } */
       2  /* { dg-require-effective-target lp64 } */
       3  /* { dg-require-effective-target powerpc_p9vector_ok } */
       4  /* { dg-options "-mdejagnu-cpu=power9" } */
       5  
       6  /* This test should succeed only on 64-bit configurations.  */
       7  #include <altivec.h>
       8  
       9  unsigned long long int
      10  get_exponent (__ieee128 *p)
      11  {
      12    __ieee128 source = *p;
      13  
      14    return scalar_extract_exp (source);
      15  }
      16  
      17  /* { dg-final { scan-assembler "xsxexpqp" } } */