gcc/testsuite/gcc.target/powerpc/pr82748-1.c

   1 /* { dg-do compile { target { powerpc*-*-* && lp64 } } } */
   2 /* { dg-require-effective-target powerpc_vsx_ok } */
   3 /* { dg-options "-mvsx -O2 -mabi=ieeelongdouble -Wno-psabi" } */
   4 /* { dg-additional-options "-mdejagnu-cpu=power9" { target { ! has_arch_pwr9 } } } */
   5
   6 /* Make sure the old 'q' builtin functions work correctly when the long double
   7    default has been changed to be IEEE 128-bit floating point.  */
   8
   9 _Float128
  10 do_fabs_f (_Float128 a)
  11 {
  12   return __builtin_fabsq (a);
  13 }
  14
  15 _Float128
  16 do_copysign_f (_Float128 a, _Float128 b)
  17 {
  18   return __builtin_copysignq (a, b);
  19 }
  20
  21 _Float128
  22 do_inf_f (void)
  23 {
  24   return __builtin_infq ();
  25 }
  26
  27 _Float128
  28 do_nan_f (void)
  29 {
  30   return __builtin_nanq ("");
  31 }
  32
  33 _Float128
  34 do_nans_f (void)
  35 {
  36   return __builtin_nansq ("");
  37 }
  38
  39 _Float128
  40 do_huge_val_f (void)
  41 {
  42   return __builtin_huge_valq ();
  43 }
  44
  45 long double
  46 do_fabs_ld (long double a)
  47 {
  48   return __builtin_fabsq (a);
  49 }
  50
  51 long double
  52 do_copysign_ld (long double a, long double b)
  53 {
  54   return __builtin_copysignq (a, b);
  55 }
  56
  57 long double
  58 do_inf_ld (void)
  59 {
  60   return __builtin_infq ();
  61 }
  62
  63 long double
  64 do_nan_ld (void)
  65 {
  66   return __builtin_nanq ("");
  67 }
  68
  69 long double
  70 do_nans_ld (void)
  71 {
  72   return __builtin_nansq ("");
  73 }
  74
  75 long double
  76 do_huge_val_ld (void)
  77 {
  78   return __builtin_huge_valq ();
  79 }
  80
  81 /* { dg-final { scan-assembler     {\mxsabsqp\M}   } } */
  82 /* { dg-final { scan-assembler     {\mxscpsgnqp\M} } } */
  83 /* { dg-final { scan-assembler-not {\mbl\M} }      } */