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 if (scalar_cmp_exp_unordered (exponent1
, exponent2
))
25 /* NaN is denoted by exponent = 2047 and fraction != 0 */
26 unsigned long long int nan_image
= 0x7ff0000000000003LL
;
27 double *nan_ptr
= (double *) &nan_image
;
29 double x
= (double) (0x1100LL
<< 50);
30 double y
= (double) (0x1101LL
<< 50);
31 double z
= (double) (0x1101LL
<< 37);
33 if (compare_exponents_unordered (&x
, nan_ptr
) == 'f')
35 if (compare_exponents_unordered (&x
, &z
) == 't')