1  /* { dg-do run { target { powerpc*-*-* } } } */
       2  /* { dg-require-effective-target p9vector_hw } */
       3  /* { dg-options "-mdejagnu-cpu=power9" } */
       4  
       5  /* This test should succeed on 32-bit and 64-bit configurations.  */
       6  #include <altivec.h>
       7  #include <stdlib.h>
       8  
       9  char
      10  compare_exponents_eq (double *exponent1_p, double *exponent2_p)
      11  {
      12    double exponent1 = *exponent1_p;
      13    double exponent2 = *exponent2_p;
      14  
      15    if (scalar_cmp_exp_eq (exponent1, exponent2))
      16      return 't';
      17    else
      18      return 'f';
      19  }
      20  
      21  int
      22  main ()
      23  {
      24    double x = (double) (0x1100LL << 50);
      25    double y = (double) (0x1101LL << 50);
      26    double z = (double) (0x1101LL << 37);
      27  
      28    if (compare_exponents_eq (&x, &y) == 'f')
      29      abort ();
      30    if (compare_exponents_eq (&x, &z) == 't')
      31      abort ();
      32    return 0;
      33  }