[Beignet] [PATCH v2 2/2] test built-in function "frexp"
Homer Hsing
homer.xing at intel.com
Mon Jul 15 23:10:17 PDT 2013
Signed-off-by: Homer Hsing <homer.xing at intel.com>
---
kernels/builtin_frexp.cl | 6 ++++++
utests/CMakeLists.txt | 1 +
utests/builtin_frexp.cpp | 50 ++++++++++++++++++++++++++++++++++++++++++++++++
3 files changed, 57 insertions(+)
create mode 100644 kernels/builtin_frexp.cl
create mode 100644 utests/builtin_frexp.cpp
diff --git a/kernels/builtin_frexp.cl b/kernels/builtin_frexp.cl
new file mode 100644
index 0000000..3d33a14
--- /dev/null
+++ b/kernels/builtin_frexp.cl
@@ -0,0 +1,6 @@
+kernel void builtin_frexp(global float *src, global float *dst, global int *e) {
+ int i = get_global_id(0);
+ int v;
+ dst[i] = frexp(src[i], &v);
+ e[i] = v;
+}
diff --git a/utests/CMakeLists.txt b/utests/CMakeLists.txt
index 14ff6b1..6f6fb86 100644
--- a/utests/CMakeLists.txt
+++ b/utests/CMakeLists.txt
@@ -101,6 +101,7 @@ set (utests_sources
compiler_cl_finish.cpp
get_cl_info.cpp
builtin_bitselect.cpp
+ builtin_frexp.cpp
builtin_mad_sat.cpp
builtin_sign.cpp
buildin_work_dim.cpp
diff --git a/utests/builtin_frexp.cpp b/utests/builtin_frexp.cpp
new file mode 100644
index 0000000..948aae2
--- /dev/null
+++ b/utests/builtin_frexp.cpp
@@ -0,0 +1,50 @@
+#include <cmath>
+#include "utest_helper.hpp"
+
+void builtin_frexp(void)
+{
+ const int n = 32;
+ float src[n];
+
+ // Setup kernel and buffers
+ OCL_CREATE_KERNEL("builtin_frexp");
+ OCL_CREATE_BUFFER(buf[0], 0, n * sizeof(float), NULL);
+ OCL_CREATE_BUFFER(buf[1], 0, n * sizeof(float), NULL);
+ OCL_CREATE_BUFFER(buf[2], 0, n * sizeof(int), NULL);
+ OCL_SET_ARG(0, sizeof(cl_mem), &buf[0]);
+ OCL_SET_ARG(1, sizeof(cl_mem), &buf[1]);
+ OCL_SET_ARG(2, sizeof(cl_mem), &buf[2]);
+ globals[0] = n;
+ locals[0] = 16;
+
+ OCL_MAP_BUFFER(0);
+ src[0] = ((float*)buf_data[0])[0] = 0.f;
+ src[1] = ((float*)buf_data[0])[1] = -0.f;
+ src[2] = ((float*)buf_data[0])[2] = nanf("");
+ src[3] = ((float*)buf_data[0])[3] = INFINITY;
+ src[4] = ((float*)buf_data[0])[4] = -INFINITY;
+ for (int i = 5; i < n; ++i)
+ src[i] = ((float*)buf_data[0])[i] = (rand() & 255) * 0.1f - 12.8f;
+ OCL_UNMAP_BUFFER(0);
+
+ OCL_NDRANGE(1);
+
+ OCL_MAP_BUFFER(1);
+ OCL_MAP_BUFFER(2);
+ float *dst = (float*)buf_data[1];
+ int *exp = (int*)buf_data[2];
+ int w;
+ OCL_ASSERT(dst[0] == 0.f);
+ OCL_ASSERT(dst[1] == -0.f);
+ OCL_ASSERT(isnanf(dst[2]));
+ OCL_ASSERT(dst[3] == INFINITY);
+ OCL_ASSERT(dst[4] == -INFINITY);
+ for (int i = 5; i < n; ++i) {
+ OCL_ASSERT(fabsf(dst[i] - frexpf(src[i], &w)) < 1e-5);
+ OCL_ASSERT(exp[i] == w);
+ }
+ OCL_UNMAP_BUFFER(1);
+ OCL_UNMAP_BUFFER(2);
+}
+
+MAKE_UTEST_FROM_FUNCTION(builtin_frexp);
--
1.8.1.2
More information about the Beignet
mailing list