ORCA-C/Tests/Conformance/C7.5.1.5.CC

88 lines
2.5 KiB
C++

/* Conformance Test 7.5.1.5: Verification of conversion from floating-point */
/* to integer types using type casting */
#include <stdio.h>
int main (void)
{
char ch;
short sh;
int i;
long L;
unsigned char uch;
unsigned int ui;
unsigned long ul;
float f [10] = { 123.456, -876.443, 456.789, -127.54, 321.456,
-456.77, -844.0, 4.0, 6.0, 4.2e2 }, ff;
double d [10] = { -1234.56, 4567.89977, 55555.66666, 4.5, -89.0, -4565.00,
333.88, 42.567, 76.564, 987.98765 }, dd;
extended e [10] = { 8.456e20, 3478.6e-100, 9876.43E+300, 0.00e-30, 00.00,
-0.0, 0.577, 00.33, 0.43212, 0.9876}, ee;
/* Check conversion from float to other arithmetic types. */
ff = (float) f [0];
dd = (double) f [1];
ee = (extended) f [2];
ch = (char) f [3];
sh = (short) f [4];
i = (int) f [5];
L = (long) f [6];
uch = (unsigned char) f [7];
ui = (unsigned int) f [8];
ul = (unsigned long) f [9];
if ((ff != 123.456) || (dd != -876.443) || (ee != 456.789) || (ch != -127) ||
(sh != 321) || (i != -456) || (L != -844) || (uch != 4) ||
(ui != 6) || (ul != 420))
goto Fail;
/* Check conversion from double to other arithmetic types. */
ff = (float) d [0];
dd = (double) d [1];
ee = (extended) d [2];
ch = (char) d [3];
sh = (short) d [4];
i = (int) d [5];
L = (long) d [6];
uch = (unsigned char) d [7];
ui = (unsigned int) d [8];
ul = (unsigned long) d [9];
if ((ff != -1234.56) || (dd != 4567.89977) || (ee != 55555.66666) ||
(ch != 4) || (sh != -89) || (i != -4565) || (L != 333) ||
(uch != 42) || (ui != 76) || (ul != 987))
goto Fail;
/* Check conversion from extended to other arithmetic types. */
ff = (float) e [0];
dd = (double) e [1];
ee = (extended) e [2];
ch = (char) e [3];
sh = (short) e [4];
i = (int) e [5];
L = (long) e [6];
uch = (unsigned char) e [7];
ui = (unsigned int) e [8];
ul = (unsigned long) e [9];
if ((ff != 8.456e20) || (dd != 3478.6e-100) || (ee != 9876.43e+300) ||
(ch != 0) || (sh != 0) || (i != 0) || (L != 0) || (uch != 0) ||
(ui != 0) || (ul != 0))
goto Fail;
printf ("Passed Conformance Test 7.5.1.5\n");
return 0;
Fail:
printf ("Passed Conformance Test 7.5.1.5\n");
}