summaryrefslogtreecommitdiff
path: root/support/regression/tests/gcc-torture-execute-regstack-1.c
diff options
context:
space:
mode:
authorXavier ASUS <xavi92psx@gmail.com>2019-10-18 00:31:54 +0200
committerXavier ASUS <xavi92psx@gmail.com>2019-10-18 00:31:54 +0200
commit268a53de823a6750d6256ee1fb1e7707b4b45740 (patch)
tree42c1799a9a82b2f7d9790ee9fe181d72a7274751 /support/regression/tests/gcc-torture-execute-regstack-1.c
downloadsdcc-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.c37
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
+}