old-cross-binutils/gdb/testsuite/gdb.base/return2.c
Jim Blandy fd661517de * gdb.base/return2.exp (main): Use values to test float and double
returns that are not NaN's, to avoid being confused by IEEE
comparison rules.
2001-06-07 03:42:41 +00:00

110 lines
2.7 KiB
C

/* Test gdb's "return" command. */
int void_test = 0;
int main_test = 0;
char char_returnval = '1';
short short_returnval = 1;
int int_returnval = 1;
long long_returnval = 1;
long long long_long_returnval = 1;
float float_returnval = 1;
double double_returnval = 1;
union {
char char_testval;
short short_testval;
int int_testval;
long long_testval;
long long long_long_testval;
float float_testval;
double double_testval;
char ffff[80];
} testval;
void void_func ()
{
void_test = 1;
}
char char_func ()
{
return char_returnval;
}
short short_func ()
{
return short_returnval;
}
int int_func ()
{
return int_returnval;
}
long long_func ()
{
return long_returnval;
}
long long long_long_func ()
{
return long_long_returnval;
}
float float_func ()
{
return float_returnval;
}
double double_func ()
{
return double_returnval;
}
int main (int argc, char **argv)
{
char char_resultval;
short short_resultval;
int int_resultval;
long long_resultval;
long long long_long_resultval;
float float_resultval;
double double_resultval;
int i;
/* A "test load" that will insure that the function really returns
a ${type} (as opposed to just a truncated or part of a ${type}). */
for (i = 0; i < sizeof (testval.ffff); i++)
testval.ffff[i] = 0xff;
void_func (); /* call to void_func */
char_resultval = char_func (); /* void_checkpoint */
short_resultval = short_func (); /* char_checkpoint */
int_resultval = int_func (); /* short_checkpoint */
long_resultval = long_func (); /* int_checkpoint */
long_long_resultval = long_long_func (); /* long_checkpoint */
/* On machines using IEEE floating point, the test pattern of all
1-bits established above turns out to be a floating-point NaN
("Not a Number"). According to the IEEE rules, NaN's aren't even
equal to themselves. This can lead to stupid conversations with
GDB like:
(gdb) p testval.float_testval == testval.float_testval
$7 = 0
(gdb)
This is the correct answer, but it's not the sort of thing
return2.exp wants to see. So to make things work the way they
ought, we'll set aside the `union' cleverness and initialize the
test values explicitly here. These values have interesting bits
throughout the value, so we'll still detect truncated values. */
testval.float_testval = 2.7182818284590452354;/* long_long_checkpoint */
float_resultval = float_func ();
testval.double_testval = 3.14159265358979323846; /* float_checkpoint */
double_resultval = double_func ();
main_test = 1; /* double_checkpoint */
return 0;
}