20170419-1.c\compile\gcc.c-torture\testsuite\gcc - riscv-gnu-toolchain/gcc.git - Unnamed repository; edit this file 'description' to name the repository.

index : riscv-gnu-toolchain/gcc.git

Unnamed repository; edit this file 'description' to name the repository.

root

about summary refs log tree commit diff

path: root/gcc/testsuite/gcc.c-torture/compile/20170419-1.c

blob: c16a5ea2af4bd058bd23fd10ee9aaa4157f0103d (plain)

extern int __fpclassifyd (double x);

double fdim (double x, double y)
{
   int c = __fpclassifyd (x);
   if (c == 0)
     return (x);
   if (__fpclassifyd (y) == 0)
     return (y);
   if (c == 1)
     return (__builtin_huge_val ());
   return x > y ? x - y : 0.0;
}