gcc/testsuite/gfortran.dg/ieee/signaling_1_c.c

float create_nansf (void)
{
  return __builtin_nansf("");
}

double create_nans (void)
{
  return __builtin_nans("");
}

long double create_nansl (void)
{
  return __builtin_nansl("");
}