blob: 8e176661e1db47f2d8b54e266aaf16eede9c0c33 [file] [log] [blame]
#include <string.h>
#include <stdlib.h>
#include <float.h>
#define fpsizeoff sizeof(float)
#define fpsizeof sizeof(double)
#define fpsizeofl sizeof(long double)
/* Work around the fact that with the Intel double-extended precision,
we've got a 10 byte type stuffed into some amount of padding. And
the fact that -ffloat-store is going to stuff this value temporarily
into some bit of stack frame that we've no control over and can't zero. */
#if LDBL_MANT_DIG == 64
# if defined(__i386__) || defined(__x86_64__) || defined (__ia64__)
# undef fpsizeofl
# define fpsizeofl 10
# endif
#endif
/* Work around the fact that the sign of the second double in the IBM
double-double format is not strictly specified when it contains a zero.
For instance, -0.0L can be represented with either (-0.0, +0.0) or
(-0.0, -0.0). The former is what we'll get from the compiler when it
builds constants; the later is what we'll get from the negation operator
at runtime. */
/* ??? This hack only works for big-endian, which is fortunately true for
AIX and Darwin. */
#if LDBL_MANT_DIG == 106
# undef fpsizeofl
# define fpsizeofl sizeof(double)
#endif
#define TEST(TYPE, EXT) \
static TYPE Y##EXT[] = { \
2.0, -2.0, -2.0, -2.0, -2.0, 2.0, -0.0, __builtin_inf##EXT () \
}; \
static const TYPE Z##EXT[] = { \
1.0, -1.0, -1.0, -0.0, -0.0, 0.0, -__builtin_inf##EXT (), \
__builtin_nan##EXT ("") \
}; \
\
void test##EXT (void) \
{ \
TYPE r[8]; \
int i; \
r[0] = __builtin_copysign##EXT (1.0, Y##EXT[0]); \
r[1] = __builtin_copysign##EXT (1.0, Y##EXT[1]); \
r[2] = __builtin_copysign##EXT (-1.0, Y##EXT[2]); \
r[3] = __builtin_copysign##EXT (0.0, Y##EXT[3]); \
r[4] = __builtin_copysign##EXT (-0.0, Y##EXT[4]); \
r[5] = __builtin_copysign##EXT (-0.0, Y##EXT[5]); \
r[6] = __builtin_copysign##EXT (__builtin_inf##EXT (), Y##EXT[6]); \
r[7] = __builtin_copysign##EXT (-__builtin_nan##EXT (""), Y##EXT[7]); \
for (i = 0; i < 8; ++i) \
if (memcmp (r+i, Z##EXT+i, fpsizeof##EXT) != 0) \
abort (); \
}
TEST(float, f)
TEST(double, )
TEST(long double, l)
int main()
{
testf();
test();
testl();
return 0;
}