From 268a53de823a6750d6256ee1fb1e7707b4b45740 Mon Sep 17 00:00:00 2001
From: Xavier ASUS <xavi92psx@gmail.com>
Date: Fri, 18 Oct 2019 00:31:54 +0200
Subject: sdcc-3.9.0 fork implementing GNU assembler syntax

This fork aims to provide better support for stm8-binutils
---
 support/regression/tests/float_trans.c | 34 ++++++++++++++++++++++++++++++++++
 1 file changed, 34 insertions(+)
 create mode 100644 support/regression/tests/float_trans.c

(limited to 'support/regression/tests/float_trans.c')

diff --git a/support/regression/tests/float_trans.c b/support/regression/tests/float_trans.c
new file mode 100644
index 0000000..3db5d25
--- /dev/null
+++ b/support/regression/tests/float_trans.c
@@ -0,0 +1,34 @@
+/* Test of transcendent float functions.
+   Original from Jesus Calvino-Fraga
+
+   func: SQRTF, LOGF, POWF, TANF
+*/
+#include <testfwk.h>
+#include <math.h>
+
+#if defined (__STDC_IEC_559__) || defined (__SDCC)
+#define {func} 1
+#endif
+
+void
+testTrans(void)
+{
+#if !defined(__SDCC_pdk14) && !defined(__SDCC_pdk15) // Lack of memory
+#ifdef SQRTF
+    ASSERT(fabsf (sqrtf (5.0)     -   2.23606801) < 0.00001);
+#endif
+#ifdef LOGF
+    ASSERT(fabsf (logf (124.0)    -   4.82028150) < 0.00001);
+    ASSERT(fabsf (log10f (124.0)  -   2.09342169) < 0.00001);
+#endif
+#ifdef POWF
+  /*  too big for small model */
+# ifndef __SDCC_MODEL_SMALL
+    ASSERT(fabsf (powf (1.5, 2.0) -   2.24999976) < 0.00001);
+# endif
+#endif
+#ifdef TANF
+    ASSERT(fabsf (tanf (1.6)      - -34.23250579) < 0.00001);
+#endif
+#endif
+}
-- 
cgit v1.2.3