diff options
| author | Xavier ASUS <xavi92psx@gmail.com> | 2019-10-18 00:31:54 +0200 |
|---|---|---|
| committer | Xavier ASUS <xavi92psx@gmail.com> | 2019-10-18 00:31:54 +0200 |
| commit | 268a53de823a6750d6256ee1fb1e7707b4b45740 (patch) | |
| tree | 42c1799a9a82b2f7d9790ee9fe181d72a7274751 /support/regression/tests/gcc-torture-execute-regstack-1.c | |
| download | sdcc-gas-268a53de823a6750d6256ee1fb1e7707b4b45740.tar.gz | |
sdcc-3.9.0 fork implementing GNU assembler syntax
This fork aims to provide better support for stm8-binutils
Diffstat (limited to 'support/regression/tests/gcc-torture-execute-regstack-1.c')
| -rw-r--r-- | support/regression/tests/gcc-torture-execute-regstack-1.c | 37 |
1 files changed, 37 insertions, 0 deletions
diff --git a/support/regression/tests/gcc-torture-execute-regstack-1.c b/support/regression/tests/gcc-torture-execute-regstack-1.c new file mode 100644 index 0000000..1725357 --- /dev/null +++ b/support/regression/tests/gcc-torture-execute-regstack-1.c @@ -0,0 +1,37 @@ +/* +regstack-1.c from the execute part of the gcc torture tests. +*/ + +#include <testfwk.h> + +#if 0 // TODO: Enable when SDCC supports long double! +long double C = 5; +long double U = 1; +long double Y2 = 11; +long double Y1 = 17; +long double X, Y, Z, T, R, S; +#endif +void +testTortureExecute (void) +{ +#if 0 + X = (C + U) * Y2; + Y = C - U - U; + Z = C + U + U; + T = (C - U) * Y1; + X = X - (Z + U); + R = Y * Y1; + S = Z * Y2; + T = T - Y; + Y = (U - Y) + R; + Z = S - (Z + U + U); + R = (Y2 + U) * Y1; + Y1 = Y2 * Y1; + R = R - Y2; + Y1 = Y1 - 0.5L; + if (Z != 68. || Y != 49. || X != 58. || Y1 != 186.5 || R != 193. || S != 77. + || T != 65. || Y2 != 11.) + ASSERT (0); + return; +#endif +} |
