Projet_SETI_RISC-V/riscv-gnu-toolchain/gcc/gcc/testsuite/gcc.dg/pr95115.c
2023-03-06 14:48:14 +01:00

25 lines
390 B
C

/* { dg-do run } */
/* { dg-options "-O2 -ftrapping-math" } */
/* { dg-add-options ieee } */
/* { dg-require-effective-target fenv_exceptions } */
#include <fenv.h>
#include <stdlib.h>
double
x (void)
{
double d = __builtin_inf ();
return d / d;
}
int
main (void)
{
double r = x ();
if (!__builtin_isnan (r))
abort ();
if (!fetestexcept (FE_INVALID))
abort ();
exit (0);
}