1  /* { dg-do compile } */
       2  /* { dg-options "-Wabsolute-value" } */
       3  
       4  #include <stdlib.h>
       5  #include <complex.h>
       6  #include <math.h>
       7  
       8  void tst_decimal (_Decimal32 *p32, _Decimal64 *p64, _Decimal128 *p128)
       9  {
      10    *p32 = abs(*p32);       /* { dg-warning "using integer absolute value function" } */
      11    *p64 = fabs(*p64);      /* { dg-warning "using floating-point absolute value function" } */
      12    *p128 = cabsl(*p128);   /* { dg-warning "using complex absolute value function" } */
      13  }
      14  
      15  void tst_notdecimal (int *pi, double *pd, long double *pld, complex double *pc)
      16  {
      17    *pi = __builtin_fabsd32 (*pi);   /* { dg-warning "using decimal floating-point absolute value function" } */
      18    *pd = __builtin_fabsd64 (*pd);   /* { dg-warning "using decimal floating-point absolute value function" } */
      19    *pld = __builtin_fabsd64 (*pld); /* { dg-warning "using decimal floating-point absolute value function" } */
      20    *pc = __builtin_fabsd128 (*pc);  /* { dg-warning "using decimal floating-point absolute value function" } */
      21  }
      22  
      23  void
      24  test_size  (_Decimal64 *p64, _Decimal128 *p128)
      25  {
      26    *p64 = __builtin_fabsd32 (*p64);   /* { dg-warning "may cause truncation of value" } */
      27    *p128 = __builtin_fabsd64 (*p128); /* { dg-warning "may cause truncation of value" } */
      28  }