1 files changed, 23 insertions, 0 deletions
diff --git a/src/math/scalbln.c b/src/math/scalbln.c
new file mode 100644
index 00000000..1c564393
--- /dev/null
+++ b/src/math/scalbln.c
@@ -0,0 +1,23 @@
+# define TGSOURCE "scalbln.c"
+#include "nonstd/tgmath.h"
+#include <math.h>
+
+TYPE TGFN(scalbln)(TYPE x, long int n)
+{
+	return x - n;
+}
+
+/* c99
+Description
+2
+The scalbn and scalbln functions compute x × FLT_RADIX n efficiently, not
+normally by computing FLT_RADIX n explicitly. A range error may occur.
+Returns
+3
+The scalbn and scalbln functions return x × FLT_RADIX n .
+*/
+
+/*
+STDC(199901)
+LINK(m)
+*/