2008-03-08 21:32:18 +00:00
|
|
|
#include <math.h>
|
|
|
|
#include <stdio.h>
|
|
|
|
#include <stdlib.h>
|
|
|
|
#include <string.h>
|
|
|
|
|
|
|
|
static int
|
2013-05-23 16:00:10 +00:00
|
|
|
test (const char str[])
|
2008-03-08 21:32:18 +00:00
|
|
|
{
|
|
|
|
char *endp;
|
|
|
|
int result = 0;
|
|
|
|
|
2013-05-23 16:00:10 +00:00
|
|
|
puts (str);
|
|
|
|
|
2008-03-08 21:32:18 +00:00
|
|
|
double d = strtod (str, &endp);
|
|
|
|
if (!isnan (d))
|
|
|
|
{
|
|
|
|
puts ("strtod did not return NAN");
|
|
|
|
result = 1;
|
|
|
|
}
|
2013-04-05 18:28:47 +00:00
|
|
|
if (issignaling (d))
|
|
|
|
{
|
|
|
|
puts ("strtod returned a sNAN");
|
|
|
|
result = 1;
|
|
|
|
}
|
2008-03-08 21:32:18 +00:00
|
|
|
if (strcmp (endp, "something") != 0)
|
|
|
|
{
|
|
|
|
puts ("strtod set incorrect end pointer");
|
|
|
|
result = 1;
|
|
|
|
}
|
|
|
|
|
|
|
|
float f = strtof (str, &endp);
|
|
|
|
if (!isnanf (f))
|
|
|
|
{
|
|
|
|
puts ("strtof did not return NAN");
|
|
|
|
result = 1;
|
|
|
|
}
|
2013-04-05 18:28:47 +00:00
|
|
|
if (issignaling (f))
|
|
|
|
{
|
|
|
|
puts ("strtof returned a sNAN");
|
|
|
|
result = 1;
|
|
|
|
}
|
2008-03-08 21:32:18 +00:00
|
|
|
if (strcmp (endp, "something") != 0)
|
|
|
|
{
|
|
|
|
puts ("strtof set incorrect end pointer");
|
|
|
|
result = 1;
|
|
|
|
}
|
|
|
|
|
|
|
|
long double ld = strtold (str, &endp);
|
|
|
|
if (!isnan (ld))
|
|
|
|
{
|
|
|
|
puts ("strtold did not return NAN");
|
|
|
|
result = 1;
|
|
|
|
}
|
2013-04-05 18:28:47 +00:00
|
|
|
if (issignaling (ld))
|
|
|
|
{
|
|
|
|
puts ("strtold returned a sNAN");
|
|
|
|
result = 1;
|
|
|
|
}
|
2008-03-08 21:32:18 +00:00
|
|
|
if (strcmp (endp, "something") != 0)
|
|
|
|
{
|
|
|
|
puts ("strtold set incorrect end pointer");
|
|
|
|
result = 1;
|
|
|
|
}
|
|
|
|
|
|
|
|
return result;
|
|
|
|
}
|
|
|
|
|
2013-05-23 16:00:10 +00:00
|
|
|
static int
|
|
|
|
do_test (void)
|
|
|
|
{
|
|
|
|
int result = 0;
|
|
|
|
|
|
|
|
result |= test ("NaN(blabla)something");
|
|
|
|
result |= test ("NaN(1234)something");
|
|
|
|
/* UINT32_MAX. */
|
|
|
|
result |= test ("NaN(4294967295)something");
|
|
|
|
/* UINT64_MAX. */
|
|
|
|
result |= test ("NaN(18446744073709551615)something");
|
|
|
|
/* The case of zero is special in that "something" has to be done to make the
|
|
|
|
mantissa different from zero, which would mean infinity instead of
|
|
|
|
NaN. */
|
|
|
|
result |= test ("NaN(0)something");
|
|
|
|
|
|
|
|
return result;
|
|
|
|
}
|
|
|
|
|
2008-03-08 21:32:18 +00:00
|
|
|
#define TEST_FUNCTION do_test ()
|
|
|
|
#include "../test-skeleton.c"
|