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  int
      10  compare_exponents_unordered (double *exponent1_p, double *exponent2_p)
      11  {
      12    double exponent1 = *exponent1_p;
      13    double exponent2 = *exponent2_p;
      14  
      15    /* This test succeeds if either exponent1 or exponent2 is NaN. */
      16    return scalar_cmp_exp_unordered (exponent1, exponent2);
      17  }
      18  
      19  int
      20  main ()
      21  {
      22    /* NaN is denoted by exponent = 2047 and fraction != 0 */
      23    unsigned long long int nan_image = 0x7ff0000000000003LL;
      24    double *nan_ptr = (double *) &nan_image;
      25  
      26    double x = (double) (0x1100LL << 50);
      27    double y = (double) (0x1101LL << 50);
      28    double z = (double) (0x1101LL << 37);
      29  
      30    if (!compare_exponents_unordered (&x, nan_ptr))
      31      abort ();
      32    if (compare_exponents_unordered (&x, &z))
      33      abort ();
      34    return 0;
      35  }