gcc/testsuite/gcc.target/powerpc/bfp/scalar-cmp-exp-gt-4.c

   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_gt (double *exponent1_p, double *exponent2_p)
  11 {
  12   double exponent1 = *exponent1_p;
  13   double exponent2 = *exponent2_p;
  14
  15   if (scalar_cmp_exp_gt (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_gt (&x, &y) == 't')
  29     abort ();
  30   if (compare_exponents_gt (&x, &z) == 'f')
  31     abort ();
  32   return 0;
  33 }