1 /* { dg-do run { target { powerpc*-*-* } } } */
2 /* { dg-require-effective-target p9vector_hw } */
3 /* { dg-options "-mdejagnu-cpu=power9" } */
5 /* This test should succeed on 32-bit and 64-bit configurations. */
10 compare_exponents_unordered (double *exponent1_p
, double *exponent2_p
)
12 double exponent1
= *exponent1_p
;
13 double exponent2
= *exponent2_p
;
15 /* This test succeeds if either exponent1 or exponent2 is NaN. */
16 return scalar_cmp_exp_unordered (exponent1
, exponent2
);
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
;
26 double x
= (double) (0x1100LL
<< 50);
27 double y
= (double) (0x1101LL
<< 50);
28 double z
= (double) (0x1101LL
<< 37);
30 if (!compare_exponents_unordered (&x
, nan_ptr
))
32 if (compare_exponents_unordered (&x
, &z
))