mirror of
https://github.com/byteworksinc/ORCA-C.git
synced 2024-11-17 05:06:10 +00:00
88 lines
2.5 KiB
C++
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>
|
|
|
|
main ()
|
|
{
|
|
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;
|
|
|
|
Fail:
|
|
printf ("Passed Conformance Test 7.5.1.5\n");
|
|
}
|