Function test_double_arg_clone

test_conformance/api/test_clone_kernel.cpp:206–245

    test_assert_error(((cl_uint*)pbufRes)[10] == color[3],
                      "clCloneKernel test failed.");

    return TEST_PASS;
}

int test_double_arg_clone(cl_device_id device, cl_context context,
                          cl_command_queue queue, int num_elements,
                          void* pbufRes, clMemWrapper& bufOut)
{
    int error = 0;
    clProgramWrapper program;
    clKernelWrapper kernel;
    clKernelWrapper kernel_cloned;
    size_t ndrange1 = 1;

    if (create_single_kernel_helper(context, &program, &kernel, 1,
                                    clone_kernel_test_double,
                                    "clone_kernel_test1")
        != 0)
    {
        return -1;
    }

    cl_double d = 1.23;
    error = clSetKernelArg(kernel, 0, sizeof(double), &d);
    error += clSetKernelArg(kernel, 1, sizeof(cl_mem), &bufOut);
    test_error(error, "clSetKernelArg failed.");

    kernel_cloned = clCloneKernel(kernel, &error);
    test_error(error, "clCloneKernel failed.");

    error = clEnqueueNDRangeKernel(queue, kernel_cloned, 1, NULL, &ndrange1,
                                   NULL, 0, NULL, NULL);
    test_error(error, "clEnqueueNDRangeKernel failed.");

    // read result back
    error = clEnqueueReadBuffer(queue, bufOut, CL_TRUE, 0, BUF_SIZE, pbufRes, 0,
                                NULL, NULL);
    test_error(error, "clEnqueueReadBuffer failed.");

    test_assert_error(abs(((cl_double*)pbufRes)[2] - d) <= 0.0000001,
                      "clCloneKernel test failed.");

    return TEST_PASS;