view gcc/testsuite/gcc.dg/torture/pr82692.c @ 158:494b0b89df80 default tip

...
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Mon, 25 May 2020 18:13:55 +0900
parents 84e7813d76e9
children
line wrap: on
line source

/* { dg-do run } */
/* { dg-add-options ieee } */
/* { dg-require-effective-target fenv_exceptions } */

#include <fenv.h>

extern void abort (void);
extern void exit (int);

double __attribute__ ((noinline, noclone))
foo (double x)
{
  if (__builtin_islessequal (x, 0.0) || __builtin_isgreater (x, 1.0))
    return x + x;
  return x * x;
}

int
main (void)
{
  volatile double x = foo (__builtin_nan (""));
  if (fetestexcept (FE_INVALID))
    abort ();
  exit (0);
}