blob: 4b0a4504babf6a1a35a59a68320ea36ffcbc5c25 [file] [log] [blame]
//
// Copyright (c) 2020 The Khronos Group Inc.
//
// Licensed under the Apache License, Version 2.0 (the "License");
// you may not use this file except in compliance with the License.
// You may obtain a copy of the License at
//
// http://www.apache.org/licenses/LICENSE-2.0
//
// Unless required by applicable law or agreed to in writing, software
// distributed under the License is distributed on an "AS IS" BASIS,
// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
// See the License for the specific language governing permissions and
// limitations under the License.
//
#include "testBase.h"
#include "harness/testHarness.h"
#include "harness/deviceInfo.h"
static const char* test_kernel = R"CLC(
__kernel void test(__global int* dst) {
dst[0] = 0;
}
)CLC";
int test_consistency_svm(cl_device_id deviceID, cl_context context,
cl_command_queue queue, int num_elements)
{
// clGetDeviceInfo, passing CL_DEVICE_SVM_CAPABILITIES:
// May return 0, indicating that device does not support Shared Virtual
// Memory.
cl_int error;
const size_t allocSize = 16;
clMemWrapper mem;
clProgramWrapper program;
clKernelWrapper kernel;
cl_device_svm_capabilities svmCaps = 0;
error = clGetDeviceInfo(deviceID, CL_DEVICE_SVM_CAPABILITIES,
sizeof(svmCaps), &svmCaps, NULL);
test_error(error, "Unable to query CL_DEVICE_SVM_CAPABILITIES");
if (svmCaps == 0)
{
// Test setup:
mem =
clCreateBuffer(context, CL_MEM_READ_WRITE, allocSize, NULL, &error);
test_error(error, "Unable to create test buffer");
error = create_single_kernel_helper(context, &program, &kernel, 1,
&test_kernel, "test");
test_error(error, "Unable to create test kernel");
// clGetMemObjectInfo, passing CL_MEM_USES_SVM_POINTER
// Returns CL_FALSE if no devices in the context associated with
// memobj support Shared Virtual Memory.
cl_bool usesSVMPointer;
error =
clGetMemObjectInfo(mem, CL_MEM_USES_SVM_POINTER,
sizeof(usesSVMPointer), &usesSVMPointer, NULL);
test_error(error, "Unable to query CL_MEM_USES_SVM_POINTER");
test_assert_error(usesSVMPointer == CL_FALSE,
"CL_DEVICE_SVM_CAPABILITIES returned 0 but "
"CL_MEM_USES_SVM_POINTER did not return CL_FALSE");
// Check that the SVM APIs can be called.
// Returns NULL if no devices in context support Shared Virtual Memory.
void* ptr0 = clSVMAlloc(context, CL_MEM_READ_WRITE, allocSize, 0);
void* ptr1 = clSVMAlloc(context, CL_MEM_READ_WRITE, allocSize, 0);
test_assert_error(ptr0 == NULL && ptr1 == NULL,
"CL_DEVICE_SVM_CAPABILITIES returned 0 but "
"clSVMAlloc returned a non-NULL value");
// clEnqueueSVMFree, clEnqueueSVMMemcpy, clEnqueueSVMMemFill,
// clEnqueueSVMMap, clEnqueueSVMUnmap, clEnqueueSVMMigrateMem Returns
// CL_INVALID_OPERATION if the device associated with command_queue does
// not support Shared Virtual Memory.
cl_uint pattern = 0xAAAAAAAA;
error = clEnqueueSVMMemFill(queue, ptr0, &pattern, sizeof(pattern),
allocSize, 0, NULL, NULL);
test_failure_error(
error, CL_INVALID_OPERATION,
"CL_DEVICE_SVM_CAPABILITIES returned 0 but clEnqueueSVMMemFill did "
"not return CL_INVALID_OPERATION");
error = clEnqueueSVMMemcpy(queue, CL_TRUE, ptr1, ptr0, allocSize, 0,
NULL, NULL);
test_failure_error(
error, CL_INVALID_OPERATION,
"CL_DEVICE_SVM_CAPABILITIES returned 0 but "
"clEnqueueSVMMemcpy did not return CL_INVALID_OPERATION");
error = clEnqueueSVMMap(queue, CL_TRUE, CL_MAP_READ, ptr1, allocSize, 0,
NULL, NULL);
test_failure_error(
error, CL_INVALID_OPERATION,
"CL_DEVICE_SVM_CAPABILITIES returned 0 but "
"clEnqueueSVMMap did not return CL_INVALID_OPERATION");
error = clEnqueueSVMUnmap(queue, ptr1, 0, NULL, NULL);
test_failure_error(
error, CL_INVALID_OPERATION,
"CL_DEVICE_SVM_CAPABILITIES returned 0 but "
"clEnqueueSVMUnmap did not return CL_INVALID_OPERATION");
// If the enqueue calls above did not return errors, a clFinish would be
// needed here to ensure the SVM operations are complete before freeing
// the SVM pointers.
// These calls to free SVM purposefully passes a bogus pointer to the
// free function to better test that it they are a NOP when SVM is not
// supported.
void* bogus = (void*)0xDEADBEEF;
clSVMFree(context, bogus);
error = clEnqueueSVMFree(queue, 1, &bogus, NULL, NULL, 0, NULL, NULL);
test_failure_error(
error, CL_INVALID_OPERATION,
"CL_DEVICE_SVM_CAPABILITIES returned 0 but "
"clEnqueueSVMFree did not return CL_INVALID_OPERATION");
// If the enqueue calls above did not return errors, a clFinish should
// be included here to ensure the enqueued SVM free is complete.
// clSetKernelArgSVMPointer, clSetKernelExecInfo
// Returns CL_INVALID_OPERATION if no devices in the context associated
// with kernel support Shared Virtual Memory.
error = clSetKernelArgSVMPointer(kernel, 0, NULL);
test_failure_error(
error, CL_INVALID_OPERATION,
"CL_DEVICE_SVM_CAPABILITIES returned 0 but "
"clSetKernelArgSVMPointer did not return CL_INVALID_OPERATION");
error =
clSetKernelExecInfo(kernel, CL_KERNEL_EXEC_INFO_SVM_PTRS, 0, NULL);
test_failure_error(
error, CL_INVALID_OPERATION,
"CL_DEVICE_SVM_CAPABILITIES returned 0 but "
"clSetKernelExecInfo did not return CL_INVALID_OPERATION");
}
return TEST_PASS;
}
static int check_atomic_capabilities(cl_device_atomic_capabilities atomicCaps,
cl_device_atomic_capabilities requiredCaps)
{
if ((atomicCaps & requiredCaps) != requiredCaps)
{
log_error("Atomic capabilities %llx is missing support for at least "
"one required capability %llx!\n",
atomicCaps, requiredCaps);
return TEST_FAIL;
}
if ((atomicCaps & CL_DEVICE_ATOMIC_SCOPE_ALL_DEVICES) != 0
&& (atomicCaps & CL_DEVICE_ATOMIC_SCOPE_DEVICE) == 0)
{
log_error("Support for CL_DEVICE_ATOMIC_SCOPE_ALL_DEVICES requires "
"support for CL_DEVICE_ATOMIC_SCOPE_DEVICE!\n");
return TEST_FAIL;
}
if ((atomicCaps & CL_DEVICE_ATOMIC_SCOPE_DEVICE) != 0
&& (atomicCaps & CL_DEVICE_ATOMIC_SCOPE_WORK_GROUP) == 0)
{
log_error("Support for CL_DEVICE_ATOMIC_SCOPE_DEVICE requires "
"support for CL_DEVICE_ATOMIC_SCOPE_WORK_GROUP!\n");
return TEST_FAIL;
}
if ((atomicCaps & CL_DEVICE_ATOMIC_ORDER_SEQ_CST) != 0
&& (atomicCaps & CL_DEVICE_ATOMIC_ORDER_ACQ_REL) == 0)
{
log_error("Support for CL_DEVICE_ATOMIC_ORDER_SEQ_CST requires "
"support for CL_DEVICE_ATOMIC_ORDER_ACQ_REL!\n");
return TEST_FAIL;
}
if ((atomicCaps & CL_DEVICE_ATOMIC_ORDER_ACQ_REL) != 0
&& (atomicCaps & CL_DEVICE_ATOMIC_ORDER_RELAXED) == 0)
{
log_error("Support for CL_DEVICE_ATOMIC_ORDER_ACQ_REL requires "
"support for CL_DEVICE_ATOMIC_ORDER_RELAXED!\n");
return TEST_FAIL;
}
return TEST_PASS;
}
int test_consistency_memory_model(cl_device_id deviceID, cl_context context,
cl_command_queue queue, int num_elements)
{
cl_int error;
cl_device_atomic_capabilities atomicCaps = 0;
error = clGetDeviceInfo(deviceID, CL_DEVICE_ATOMIC_MEMORY_CAPABILITIES,
sizeof(atomicCaps), &atomicCaps, NULL);
test_error(error, "Unable to query CL_DEVICE_ATOMIC_MEMORY_CAPABILITIES");
error = check_atomic_capabilities(atomicCaps,
CL_DEVICE_ATOMIC_ORDER_RELAXED
| CL_DEVICE_ATOMIC_SCOPE_WORK_GROUP);
if (error == TEST_FAIL)
{
log_error("Checks failed for CL_DEVICE_ATOMIC_MEMORY_CAPABILITIES\n");
return error;
}
error = clGetDeviceInfo(deviceID, CL_DEVICE_ATOMIC_FENCE_CAPABILITIES,
sizeof(atomicCaps), &atomicCaps, NULL);
test_error(error, "Unable to query CL_DEVICE_ATOMIC_FENCE_CAPABILITIES");
error = check_atomic_capabilities(atomicCaps,
CL_DEVICE_ATOMIC_ORDER_RELAXED
| CL_DEVICE_ATOMIC_ORDER_ACQ_REL
| CL_DEVICE_ATOMIC_SCOPE_WORK_GROUP);
if (error == TEST_FAIL)
{
log_error("Checks failed for CL_DEVICE_ATOMIC_FENCE_CAPABILITIES\n");
return error;
}
return TEST_PASS;
}
int test_consistency_device_enqueue(cl_device_id deviceID, cl_context context,
cl_command_queue queue, int num_elements)
{
// clGetDeviceInfo, passing CL_DEVICE_DEVICE_ENQUEUE_CAPABILITIES
// May return 0, indicating that device does not support Device-Side Enqueue
// and On-Device Queues.
cl_int error;
cl_device_device_enqueue_capabilities dseCaps = 0;
error = clGetDeviceInfo(deviceID, CL_DEVICE_DEVICE_ENQUEUE_CAPABILITIES,
sizeof(dseCaps), &dseCaps, NULL);
test_error(error, "Unable to query CL_DEVICE_DEVICE_ENQUEUE_CAPABILITIES");
if (dseCaps == 0)
{
// clGetDeviceInfo, passing CL_DEVICE_QUEUE_ON_DEVICE_PROPERTIES
// Returns 0 if device does not support Device-Side Enqueue and
// On-Device Queues.
cl_command_queue_properties devQueueProps = 0;
error = clGetDeviceInfo(deviceID, CL_DEVICE_QUEUE_ON_DEVICE_PROPERTIES,
sizeof(devQueueProps), &devQueueProps, NULL);
test_error(error,
"Unable to query CL_DEVICE_QUEUE_ON_DEVICE_PROPERTIES");
test_assert_error(
devQueueProps == 0,
"CL_DEVICE_DEVICE_ENQUEUE_CAPABILITIES returned 0 but "
"CL_DEVICE_QUEUE_ON_DEVICE_PROPERTIES returned a non-zero value");
// clGetDeviceInfo, passing
// CL_DEVICE_QUEUE_ON_DEVICE_PREFERRED_SIZE,
// CL_DEVICE_QUEUE_ON_DEVICE_MAX_SIZE,
// CL_DEVICE_MAX_ON_DEVICE_QUEUES, or
// CL_DEVICE_MAX_ON_DEVICE_EVENTS
// Returns 0 if device does not support Device-Side Enqueue and
// On-Device Queues.
cl_uint u = 0;
error =
clGetDeviceInfo(deviceID, CL_DEVICE_QUEUE_ON_DEVICE_PREFERRED_SIZE,
sizeof(u), &u, NULL);
test_error(error,
"Unable to query CL_DEVICE_QUEUE_ON_DEVICE_PREFERRED_SIZE");
test_assert_error(u == 0,
"CL_DEVICE_DEVICE_ENQUEUE_CAPABILITIES returned 0 "
"but CL_DEVICE_QUEUE_ON_DEVICE_PREFERRED_SIZE "
"returned a non-zero value");
error = clGetDeviceInfo(deviceID, CL_DEVICE_QUEUE_ON_DEVICE_MAX_SIZE,
sizeof(u), &u, NULL);
test_error(error, "Unable to query CL_DEVICE_QUEUE_ON_DEVICE_MAX_SIZE");
test_assert_error(
u == 0,
"CL_DEVICE_DEVICE_ENQUEUE_CAPABILITIES returned 0 but "
"CL_DEVICE_QUEUE_ON_DEVICE_MAX_SIZE returned a non-zero value");
error = clGetDeviceInfo(deviceID, CL_DEVICE_MAX_ON_DEVICE_QUEUES,
sizeof(u), &u, NULL);
test_error(error, "Unable to query CL_DEVICE_MAX_ON_DEVICE_QUEUES");
test_assert_error(
u == 0,
"CL_DEVICE_DEVICE_ENQUEUE_CAPABILITIES returned 0 but "
"CL_DEVICE_MAX_ON_DEVICE_QUEUES returned a non-zero value");
error = clGetDeviceInfo(deviceID, CL_DEVICE_MAX_ON_DEVICE_EVENTS,
sizeof(u), &u, NULL);
test_error(error, "Unable to query CL_DEVICE_MAX_ON_DEVICE_EVENTS");
test_assert_error(
u == 0,
"CL_DEVICE_DEVICE_ENQUEUE_CAPABILITIES returned 0 but "
"CL_DEVICE_MAX_ON_DEVICE_EVENTS returned a non-zero value");
// clGetCommandQueueInfo, passing CL_QUEUE_SIZE
// Returns CL_INVALID_COMMAND_QUEUE since command_queue cannot be a
// valid device command-queue.
error =
clGetCommandQueueInfo(queue, CL_QUEUE_SIZE, sizeof(u), &u, NULL);
test_failure_error(
error, CL_INVALID_COMMAND_QUEUE,
"CL_DEVICE_DEVICE_ENQUEUE_CAPABILITIES returned 0 but "
"CL_QUEUE_SIZE did not return CL_INVALID_COMMAND_QUEUE");
cl_command_queue q = NULL;
error = clGetCommandQueueInfo(queue, CL_QUEUE_DEVICE_DEFAULT, sizeof(q),
&q, NULL);
test_error(error, "Unable to query CL_QUEUE_DEVICE_DEFAULT");
test_assert_error(
q == NULL,
"CL_DEVICE_DEVICE_ENQUEUE_CAPABILITIES returned 0 but "
"CL_QUEUE_DEVICE_DEFAULT returned a non-NULL value");
// clSetDefaultDeviceCommandQueue
// Returns CL_INVALID_OPERATION if device does not support On-Device
// Queues.
error = clSetDefaultDeviceCommandQueue(context, deviceID, NULL);
test_failure_error(error, CL_INVALID_OPERATION,
"CL_DEVICE_DEVICE_ENQUEUE_CAPABILITIES returned 0 "
"but clSetDefaultDeviceCommandQueue did not return "
"CL_INVALID_OPERATION");
}
else
{
if ((dseCaps & CL_DEVICE_QUEUE_REPLACEABLE_DEFAULT) == 0)
{
// clSetDefaultDeviceCommandQueue
// Returns CL_INVALID_OPERATION if device does not support a
// replaceable default On-Device Queue.
error = clSetDefaultDeviceCommandQueue(context, deviceID, NULL);
test_failure_error(
error, CL_INVALID_OPERATION,
"CL_DEVICE_DEVICE_ENQUEUE_CAPABILITIES did not "
"include CL_DEVICE_QUEUE_REPLACEABLE_DEFAULT but "
"clSetDefaultDeviceCommandQueue did not return "
"CL_INVALID_OPERATION");
}
// If CL_DEVICE_QUEUE_REPLACEABLE_DEFAULT is set,
// CL_DEVICE_QUEUE_SUPPORTED must also be set.
if ((dseCaps & CL_DEVICE_QUEUE_REPLACEABLE_DEFAULT) != 0
&& (dseCaps & CL_DEVICE_QUEUE_SUPPORTED) == 0)
{
log_error("DEVICE_QUEUE_REPLACEABLE_DEFAULT is set but "
"DEVICE_QUEUE_SUPPORTED is not set\n");
return TEST_FAIL;
}
// Devices that set CL_DEVICE_QUEUE_SUPPORTED must also return CL_TRUE
// for CL_DEVICE_GENERIC_ADDRESS_SPACE_SUPPORT.
if ((dseCaps & CL_DEVICE_QUEUE_SUPPORTED) != 0)
{
cl_bool b;
error = clGetDeviceInfo(deviceID,
CL_DEVICE_GENERIC_ADDRESS_SPACE_SUPPORT,
sizeof(b), &b, NULL);
test_error(
error,
"Unable to query CL_DEVICE_GENERIC_ADDRESS_SPACE_SUPPORT");
test_assert_error(
b == CL_TRUE,
"DEVICE_QUEUE_SUPPORTED is set but "
"CL_DEVICE_GENERIC_ADDRESS_SPACE_SUPPORT returned CL_FALSE");
}
}
return TEST_PASS;
}
int test_consistency_pipes(cl_device_id deviceID, cl_context context,
cl_command_queue queue, int num_elements)
{
// clGetDeviceInfo, passing CL_DEVICE_PIPE_SUPPORT
// May return CL_FALSE, indicating that device does not support Pipes.
cl_int error;
cl_bool pipeSupport = CL_FALSE;
error = clGetDeviceInfo(deviceID, CL_DEVICE_PIPE_SUPPORT,
sizeof(pipeSupport), &pipeSupport, NULL);
test_error(error, "Unable to query CL_DEVICE_PIPE_SUPPORT");
if (pipeSupport == CL_FALSE)
{
// clGetDeviceInfo, passing
// CL_DEVICE_MAX_PIPE_ARGS,
// CL_DEVICE_PIPE_MAX_ACTIVE_RESERVATIONS, or
// CL_DEVICE_PIPE_MAX_PACKET_SIZE
// Returns 0 if device does not support Pipes.
cl_uint u = 0;
error = clGetDeviceInfo(deviceID, CL_DEVICE_MAX_PIPE_ARGS, sizeof(u),
&u, NULL);
test_error(error, "Unable to query CL_DEVICE_MAX_PIPE_ARGS");
test_assert_error(u == 0,
"CL_DEVICE_PIPE_SUPPORT returned CL_FALSE, but "
"CL_DEVICE_MAX_PIPE_ARGS returned a non-zero value");
error =
clGetDeviceInfo(deviceID, CL_DEVICE_PIPE_MAX_ACTIVE_RESERVATIONS,
sizeof(u), &u, NULL);
test_error(error,
"Unable to query CL_DEVICE_PIPE_MAX_ACTIVE_RESERVATIONS");
test_assert_error(u == 0,
"CL_DEVICE_PIPE_SUPPORT returned CL_FALSE, but "
"CL_DEVICE_PIPE_MAX_ACTIVE_RESERVATIONS returned "
"a non-zero value");
error = clGetDeviceInfo(deviceID, CL_DEVICE_PIPE_MAX_PACKET_SIZE,
sizeof(u), &u, NULL);
test_error(error, "Unable to query CL_DEVICE_PIPE_MAX_PACKET_SIZE");
test_assert_error(
u == 0,
"CL_DEVICE_PIPE_SUPPORT returned CL_FALSE, but "
"CL_DEVICE_PIPE_MAX_PACKET_SIZE returned a non-zero value");
// clCreatePipe
// Returns CL_INVALID_OPERATION if no devices in context support Pipes.
clMemWrapper mem =
clCreatePipe(context, CL_MEM_HOST_NO_ACCESS, 4, 4, NULL, &error);
test_failure_error(error, CL_INVALID_OPERATION,
"CL_DEVICE_PIPE_SUPPORT returned CL_FALSE but "
"clCreatePipe did not return CL_INVALID_OPERATION");
// clGetPipeInfo
// Returns CL_INVALID_MEM_OBJECT since pipe cannot be a valid pipe
// object.
clMemWrapper not_a_pipe =
clCreateBuffer(context, CL_MEM_READ_WRITE, 4, NULL, &error);
test_error(error, "Unable to create non-pipe buffer");
error =
clGetPipeInfo(not_a_pipe, CL_PIPE_PACKET_SIZE, sizeof(u), &u, NULL);
test_failure_error(
error, CL_INVALID_MEM_OBJECT,
"CL_DEVICE_PIPE_SUPPORT returned CL_FALSE but clGetPipeInfo did "
"not return CL_INVALID_MEM_OBJECT");
}
else
{
// Devices that support pipes must also return CL_TRUE
// for CL_DEVICE_GENERIC_ADDRESS_SPACE_SUPPORT.
cl_bool b;
error =
clGetDeviceInfo(deviceID, CL_DEVICE_GENERIC_ADDRESS_SPACE_SUPPORT,
sizeof(b), &b, NULL);
test_error(error,
"Unable to query CL_DEVICE_GENERIC_ADDRESS_SPACE_SUPPORT");
test_assert_error(
b == CL_TRUE,
"CL_DEVICE_PIPE_SUPPORT returned CL_TRUE but "
"CL_DEVICE_GENERIC_ADDRESS_SPACE_SUPPORT returned CL_FALSE");
}
return TEST_PASS;
}
int test_consistency_progvar(cl_device_id deviceID, cl_context context,
cl_command_queue queue, int num_elements)
{
// clGetDeviceInfo, passing CL_DEVICE_MAX_GLOBAL_VARIABLE_SIZE
// May return 0, indicating that device does not support Program Scope
// Global Variables.
cl_int error;
clProgramWrapper program;
clKernelWrapper kernel;
size_t maxGlobalVariableSize = 0;
error = clGetDeviceInfo(deviceID, CL_DEVICE_MAX_GLOBAL_VARIABLE_SIZE,
sizeof(maxGlobalVariableSize),
&maxGlobalVariableSize, NULL);
test_error(error, "Unable to query CL_DEVICE_MAX_GLOBAL_VARIABLE_SIZE");
if (maxGlobalVariableSize == 0)
{
// Test setup:
error = create_single_kernel_helper(context, &program, &kernel, 1,
&test_kernel, "test");
test_error(error, "Unable to create test kernel");
size_t sz = SIZE_MAX;
// clGetDeviceInfo, passing
// CL_DEVICE_GLOBAL_VARIABLE_PREFERRED_TOTAL_SIZE
// Returns 0 if device does not support Program Scope Global Variables.
error = clGetDeviceInfo(deviceID,
CL_DEVICE_GLOBAL_VARIABLE_PREFERRED_TOTAL_SIZE,
sizeof(sz), &sz, NULL);
test_error(
error,
"Unable to query CL_DEVICE_GLOBAL_VARIABLE_PREFERRED_TOTAL_SIZE");
test_assert_error(
sz == 0,
"CL_DEVICE_MAX_GLOBAL_VARIABLE_SIZE returned 0 but "
"CL_DEVICE_GLOBAL_VARIABLE_PREFERRED_TOTAL_SIZE returned a "
"non-zero value");
// clGetProgramBuildInfo, passing
// CL_PROGRAM_BUILD_GLOBAL_VARIABLE_TOTAL_SIZE
// Returns 0 if device does not support Program Scope Global Variables.
error = clGetProgramBuildInfo(
program, deviceID, CL_PROGRAM_BUILD_GLOBAL_VARIABLE_TOTAL_SIZE,
sizeof(sz), &sz, NULL);
test_error(
error,
"Unable to query CL_PROGRAM_BUILD_GLOBAL_VARIABLE_TOTAL_SIZE");
test_assert_error(sz == 0,
"CL_DEVICE_MAX_GLOBAL_VARIABLE_SIZE returned 0 "
"but CL_PROGRAM_BUILD_GLOBAL_VARIABLE_TOTAL_SIZE "
"returned a non-zero value");
}
return TEST_PASS;
}
int test_consistency_non_uniform_work_group(cl_device_id deviceID,
cl_context context,
cl_command_queue queue,
int num_elements)
{
// clGetDeviceInfo, passing CL_DEVICE_NON_UNIFORM_WORK_GROUP_SUPPORT:
// May return CL_FALSE, indicating that device does not support Non-Uniform
// Work Groups.
cl_int error;
const size_t allocSize = 16;
clMemWrapper mem;
clProgramWrapper program;
clKernelWrapper kernel;
cl_bool nonUniformWorkGroupSupport = CL_FALSE;
error = clGetDeviceInfo(deviceID, CL_DEVICE_NON_UNIFORM_WORK_GROUP_SUPPORT,
sizeof(nonUniformWorkGroupSupport),
&nonUniformWorkGroupSupport, NULL);
test_error(error,
"Unable to query CL_DEVICE_NON_UNIFORM_WORK_GROUP_SUPPORT");
if (nonUniformWorkGroupSupport == CL_FALSE)
{
// Test setup:
mem =
clCreateBuffer(context, CL_MEM_READ_WRITE, allocSize, NULL, &error);
test_error(error, "Unable to create test buffer");
error = create_single_kernel_helper(context, &program, &kernel, 1,
&test_kernel, "test");
test_error(error, "Unable to create test kernel");
error = clSetKernelArg(kernel, 0, sizeof(mem), &mem);
// clEnqueueNDRangeKernel
// Behaves as though Non-Uniform Work Groups were not enabled for
// kernel, if the device associated with command_queue does not support
// Non-Uniform Work Groups.
size_t global_work_size[] = { 3, 3, 3 };
size_t local_work_size[] = { 2, 2, 2 };
// First, check that a NULL local work size succeeds.
error = clEnqueueNDRangeKernel(queue, kernel, 1, NULL, global_work_size,
NULL, 0, NULL, NULL);
test_error(error,
"Unable to enqueue kernel with a NULL local work size");
error = clFinish(queue);
test_error(error, "Error calling clFinish after NULL local work size");
// 1D non-uniform work group:
error = clEnqueueNDRangeKernel(queue, kernel, 1, NULL, global_work_size,
local_work_size, 0, NULL, NULL);
test_failure_error(
error, CL_INVALID_WORK_GROUP_SIZE,
"CL_DEVICE_NON_UNIFORM_WORK_GROUP_SUPPORT returned CL_FALSE but 1D "
"clEnqueueNDRangeKernel did not return CL_INVALID_WORK_GROUP_SIZE");
// 2D non-uniform work group:
global_work_size[0] = local_work_size[0];
error = clEnqueueNDRangeKernel(queue, kernel, 2, NULL, global_work_size,
local_work_size, 0, NULL, NULL);
test_failure_error(
error, CL_INVALID_WORK_GROUP_SIZE,
"CL_DEVICE_NON_UNIFORM_WORK_GROUP_SUPPORT returned CL_FALSE but 2D "
"clEnqueueNDRangeKernel did not return CL_INVALID_WORK_GROUP_SIZE");
// 3D non-uniform work group:
global_work_size[1] = local_work_size[1];
error = clEnqueueNDRangeKernel(queue, kernel, 3, NULL, global_work_size,
local_work_size, 0, NULL, NULL);
test_failure_error(
error, CL_INVALID_WORK_GROUP_SIZE,
"CL_DEVICE_NON_UNIFORM_WORK_GROUP_SUPPORT returned CL_FALSE but 3D "
"clEnqueueNDRangeKernel did not return CL_INVALID_WORK_GROUP_SIZE");
}
return TEST_PASS;
}
int test_consistency_read_write_images(cl_device_id deviceID,
cl_context context,
cl_command_queue queue, int num_elements)
{
// clGetDeviceInfo, passing
// CL_DEVICE_MAX_READ_WRITE_IMAGE_ARGS May return 0,
// indicating that device does not support Read-Write Images.
cl_int error;
cl_uint maxReadWriteImageArgs = 0;
error = clGetDeviceInfo(deviceID, CL_DEVICE_MAX_READ_WRITE_IMAGE_ARGS,
sizeof(maxReadWriteImageArgs),
&maxReadWriteImageArgs, NULL);
test_error(error,
"Unable to query "
"CL_DEVICE_MAX_READ_WRITE_IMAGE_ARGS");
// clGetSupportedImageFormats, passing
// CL_MEM_KERNEL_READ_AND_WRITE
// Returns an empty set (such as num_image_formats equal to 0), indicating
// that no image formats are supported for reading and writing in the same
// kernel, if no devices in context support Read-Write Images.
cl_uint totalReadWriteImageFormats = 0;
const cl_mem_object_type image_types[] = {
CL_MEM_OBJECT_IMAGE1D, CL_MEM_OBJECT_IMAGE1D_BUFFER,
CL_MEM_OBJECT_IMAGE2D, CL_MEM_OBJECT_IMAGE3D,
CL_MEM_OBJECT_IMAGE1D_ARRAY, CL_MEM_OBJECT_IMAGE2D_ARRAY,
};
for (int i = 0; i < ARRAY_SIZE(image_types); i++)
{
cl_uint numImageFormats = 0;
error = clGetSupportedImageFormats(
context, CL_MEM_KERNEL_READ_AND_WRITE, image_types[i], 0, NULL,
&numImageFormats);
test_error(error,
"Unable to query number of CL_MEM_KERNEL_READ_AND_WRITE "
"image formats");
totalReadWriteImageFormats += numImageFormats;
}
if (maxReadWriteImageArgs == 0)
{
test_assert_error(
totalReadWriteImageFormats == 0,
"CL_DEVICE_MAX_READ_WRITE_IMAGE_ARGS returned 0 "
"but clGetSupportedImageFormats(CL_MEM_KERNEL_READ_AND_WRITE) "
"returned a non-empty set");
}
else
{
test_assert_error(
totalReadWriteImageFormats != 0,
"CL_DEVICE_MAX_READ_WRITE_IMAGE_ARGS is non-zero "
"but clGetSupportedImageFormats(CL_MEM_KERNEL_READ_AND_WRITE) "
"returned an empty set");
}
return TEST_PASS;
}
int test_consistency_2d_image_from_buffer(cl_device_id deviceID,
cl_context context,
cl_command_queue queue,
int num_elements)
{
// clGetDeviceInfo, passing CL_DEVICE_IMAGE_PITCH_ALIGNMENT or
// CL_DEVICE_IMAGE_BASE_ADDRESS_ALIGNMENT
// May return 0, indicating that device does not support Creating a 2D Image
// from a Buffer.
cl_int error;
const cl_image_format imageFormat = { CL_RGBA, CL_UNORM_INT8 };
const size_t imageDim = 2;
const size_t elementSize = 4;
const size_t bufferSize = imageDim * imageDim * elementSize;
clMemWrapper buffer;
clMemWrapper image;
cl_uint imagePitchAlignment = 0;
error = clGetDeviceInfo(deviceID, CL_DEVICE_IMAGE_PITCH_ALIGNMENT,
sizeof(imagePitchAlignment), &imagePitchAlignment,
NULL);
test_error(error,
"Unable to query "
"CL_DEVICE_IMAGE_PITCH_ALIGNMENT");
cl_uint imageBaseAddressAlignment = 0;
error = clGetDeviceInfo(deviceID, CL_DEVICE_IMAGE_BASE_ADDRESS_ALIGNMENT,
sizeof(imageBaseAddressAlignment),
&imageBaseAddressAlignment, NULL);
test_error(error,
"Unable to query "
"CL_DEVICE_IMAGE_BASE_ADDRESS_ALIGNMENT");
bool supports_cl_khr_image2d_from_buffer =
is_extension_available(deviceID, "cl_khr_image2d_from_buffer");
if (imagePitchAlignment == 0 || imageBaseAddressAlignment == 0)
{
// This probably means that Creating a 2D Image from a Buffer is not
// supported.
// Test setup:
buffer =
clCreateBuffer(context, CL_MEM_READ_ONLY, bufferSize, NULL, &error);
test_error(error, "Unable to create test buffer");
// Check that both queries return zero:
test_assert_error(
imagePitchAlignment == 0,
"CL_DEVICE_IMAGE_PITCH_ALIGNMENT returned a non-zero value but "
"CL_DEVICE_IMAGE_BASE_ADDRESS_ALIGNMENT returned 0");
test_assert_error(
imageBaseAddressAlignment == 0,
"CL_DEVICE_IMAGE_BASE_ADDRESS_ALIGNMENT returned a non-zero value "
"but CL_DEVICE_IMAGE_PITCH_ALIGNMENT returned 0");
// clGetDeviceInfo, passing CL_DEVICE_EXTENSIONS
// Will not describe support for the cl_khr_image2d_from_buffer
// extension if device does not support Creating a 2D Image from a
// Buffer.
test_assert_error(supports_cl_khr_image2d_from_buffer == false,
"Device does not support Creating a 2D Image from a "
"Buffer but does support cl_khr_image2d_from_buffer");
// clCreateImage or clCreateImageWithProperties, passing image_type
// equal to CL_MEM_OBJECT_IMAGE2D and mem_object not equal to
// NULL
// Returns CL_INVALID_OPERATION if no devices in context support
// Creating a 2D Image from a Buffer.
cl_image_desc imageDesc = { 0 };
imageDesc.image_type = CL_MEM_OBJECT_IMAGE2D;
imageDesc.image_width = imageDim;
imageDesc.image_height = imageDim;
imageDesc.mem_object = buffer;
image = clCreateImage(context, CL_MEM_READ_ONLY, &imageFormat,
&imageDesc, NULL, &error);
test_failure_error(
error, CL_INVALID_OPERATION,
"Device does not support Creating a 2D Image from a "
"Buffer but clCreateImage did not return CL_INVALID_OPERATION");
image =
clCreateImageWithProperties(context, NULL, CL_MEM_READ_ONLY,
&imageFormat, &imageDesc, NULL, &error);
test_failure_error(error, CL_INVALID_OPERATION,
"Device does not support Creating a 2D Image from a "
"Buffer but clCreateImageWithProperties did not "
"return CL_INVALID_OPERATION");
}
else
{
test_assert_error(supports_cl_khr_image2d_from_buffer,
"Device supports Creating a 2D Image from a Buffer "
"but does not support cl_khr_image2d_from_buffer");
}
return TEST_PASS;
}
// Nothing needed for sRGB Images:
// All of the sRGB Image Channel Orders (such as CL_​sRGBA) are optional for
// devices supporting OpenCL 3.0.
int test_consistency_depth_images(cl_device_id deviceID, cl_context context,
cl_command_queue queue, int num_elements)
{
// The CL_DEPTH Image Channel Order is optional for devices supporting
// OpenCL 3.0.
cl_int error;
cl_uint totalDepthImageFormats = 0;
const cl_mem_flags mem_flags[] = {
CL_MEM_WRITE_ONLY,
CL_MEM_READ_WRITE,
CL_MEM_KERNEL_READ_AND_WRITE,
};
for (int i = 0; i < ARRAY_SIZE(mem_flags); i++)
{
cl_uint numImageFormats = 0;
error = clGetSupportedImageFormats(context, mem_flags[i],
CL_MEM_OBJECT_IMAGE2D, 0, NULL,
&numImageFormats);
test_error(
error,
"Unable to query number of CL_MEM_OBJECT_IMAGE2D image formats");
std::vector<cl_image_format> imageFormats(numImageFormats);
error = clGetSupportedImageFormats(
context, mem_flags[i], CL_MEM_OBJECT_IMAGE2D, imageFormats.size(),
imageFormats.data(), NULL);
test_error(error,
"Unable to query CL_MEM_OBJECT_IMAGE2D image formats");
for (auto& imageFormat : imageFormats)
{
if (imageFormat.image_channel_order == CL_DEPTH)
{
totalDepthImageFormats++;
}
}
}
bool supports_cl_khr_depth_images =
is_extension_available(deviceID, "cl_khr_depth_images");
if (totalDepthImageFormats == 0)
{
test_assert_error(supports_cl_khr_depth_images == false,
"Device does not support Depth Images but does "
"support cl_khr_depth_images");
}
else
{
test_assert_error(supports_cl_khr_depth_images,
"Device supports Depth Images but does not support "
"cl_khr_depth_images");
}
return TEST_PASS;
}
int test_consistency_device_and_host_timer(cl_device_id deviceID,
cl_context context,
cl_command_queue queue,
int num_elements)
{
// clGetPlatformInfo, passing CL_PLATFORM_HOST_TIMER_RESOLUTION
// May return 0, indicating that platform does not support Device and Host
// Timer Synchronization.
cl_int error;
cl_platform_id platform = NULL;
error = clGetDeviceInfo(deviceID, CL_DEVICE_PLATFORM, sizeof(platform),
&platform, NULL);
test_error(error, "Unable to query CL_DEVICE_PLATFORM");
cl_ulong hostTimerResolution = 0;
error = clGetPlatformInfo(platform, CL_PLATFORM_HOST_TIMER_RESOLUTION,
sizeof(hostTimerResolution), &hostTimerResolution,
NULL);
test_error(error, "Unable to query CL_PLATFORM_HOST_TIMER_RESOLUTION");
if (hostTimerResolution == 0)
{
// clGetDeviceAndHostTimer, clGetHostTimer
// Returns CL_INVALID_OPERATION if the platform associated with device
// does not support Device and Host Timer Synchronization.
cl_ulong dt = 0;
cl_ulong ht = 0;
error = clGetDeviceAndHostTimer(deviceID, &dt, &ht);
test_failure_error(
error, CL_INVALID_OPERATION,
"CL_PLATFORM_HOST_TIMER_RESOLUTION returned 0 but "
"clGetDeviceAndHostTimer did not return CL_INVALID_OPERATION");
error = clGetHostTimer(deviceID, &ht);
test_failure_error(
error, CL_INVALID_OPERATION,
"CL_PLATFORM_HOST_TIMER_RESOLUTION returned 0 but "
"clGetHostTimer did not return CL_INVALID_OPERATION");
}
return TEST_PASS;
}
int test_consistency_il_programs(cl_device_id deviceID, cl_context context,
cl_command_queue queue, int num_elements)
{
// clGetDeviceInfo, passing CL_DEVICE_IL_VERSION or
// CL_DEVICE_ILS_WITH_VERSION
// May return an empty string and empty array, indicating that device does
// not support Intermediate Language Programs.
cl_int error;
clProgramWrapper program;
clKernelWrapper kernel;
// Even if the device does not support Intermediate Language Programs the
// size of the string query should not be zero.
size_t sz = SIZE_MAX;
error = clGetDeviceInfo(deviceID, CL_DEVICE_IL_VERSION, 0, NULL, &sz);
test_error(error, "Unable to query CL_DEVICE_IL_VERSION");
test_assert_error(sz != 0,
"CL_DEVICE_IL_VERSION should return a non-zero size");
std::string ilVersion = get_device_il_version_string(deviceID);
error = clGetDeviceInfo(deviceID, CL_DEVICE_ILS_WITH_VERSION, 0, NULL, &sz);
test_error(error, "Unable to query CL_DEVICE_ILS_WITH_VERSION");
if (ilVersion == "" || sz == 0)
{
// This probably means that Intermediate Language Programs are not
// supported.
// Check that both queries are consistent:
test_assert_error(
ilVersion == "",
"CL_DEVICE_IL_VERSION returned a non-empty string but "
"CL_DEVICE_ILS_WITH_VERSION returned no supported ILs");
test_assert_error(sz == 0,
"CL_DEVICE_ILS_WITH_VERSION returned supported ILs "
"but CL_DEVICE_IL_VERSION returned an empty string");
bool supports_cl_khr_il_program =
is_extension_available(deviceID, "cl_khr_il_program");
test_assert_error(supports_cl_khr_il_program == false,
"Device does not support IL Programs but does "
"support cl_khr_il_program");
// Test setup:
error = create_single_kernel_helper(context, &program, &kernel, 1,
&test_kernel, "test");
test_error(error, "Unable to create test kernel");
// clGetProgramInfo, passing CL_PROGRAM_IL
// Returns an empty buffer (such as param_value_size_ret equal to 0) if
// no devices in the context associated with program support
// Intermediate Language Programs.
error = clGetProgramInfo(program, CL_PROGRAM_IL, 0, NULL, &sz);
test_error(error, "Unable to query CL_PROGRAM_IL");
test_assert_error(sz == 0,
"Device does not support IL Programs but "
"CL_PROGRAM_IL returned a non-zero size");
// clCreateProgramWithIL
// Returns CL_INVALID_OPERATION if no devices in context support
// Intermediate Language Programs.
cl_uint bogus = 0xDEADBEEF;
clProgramWrapper ilProgram =
clCreateProgramWithIL(context, &bogus, sizeof(bogus), &error);
test_failure_error(
error, CL_INVALID_OPERATION,
"Device does not support IL Programs but clCreateProgramWithIL did "
"not return CL_INVALID_OPERATION");
// clSetProgramSpecializationConstant
// Returns CL_INVALID_OPERATION if no devices associated with program
// support Intermediate Language Programs.
cl_uint specConst = 42;
error = clSetProgramSpecializationConstant(
program, 0, sizeof(specConst), &specConst);
test_failure_error(error, CL_INVALID_OPERATION,
"Device does not support IL Programs but "
"clSetProgramSpecializationConstant did not return "
"CL_INVALID_OPERATION");
}
return TEST_PASS;
}
int test_consistency_subgroups(cl_device_id deviceID, cl_context context,
cl_command_queue queue, int num_elements)
{
// clGetDeviceInfo, passing CL_DEVICE_MAX_NUM_SUB_GROUPS
// May return 0, indicating that device does not support Subgroups.
cl_int error;
clProgramWrapper program;
clKernelWrapper kernel;
cl_uint maxNumSubGroups = 0;
error = clGetDeviceInfo(deviceID, CL_DEVICE_MAX_NUM_SUB_GROUPS,
sizeof(maxNumSubGroups), &maxNumSubGroups, NULL);
test_error(error, "Unable to query CL_DEVICE_MAX_NUM_SUB_GROUPS");
if (maxNumSubGroups == 0)
{
// Test setup:
error = create_single_kernel_helper(context, &program, &kernel, 1,
&test_kernel, "test");
test_error(error, "Unable to create test kernel");
// clGetDeviceInfo, passing
// CL_DEVICE_SUB_GROUP_INDEPENDENT_FORWARD_PROGRESS
// Returns CL_FALSE if device does not support Subgroups.
cl_bool ifp = CL_FALSE;
error = clGetDeviceInfo(
deviceID, CL_DEVICE_SUB_GROUP_INDEPENDENT_FORWARD_PROGRESS,
sizeof(ifp), &ifp, NULL);
test_error(
error,
"Unable to query CL_DEVICE_SUB_GROUP_INDEPENDENT_FORWARD_PROGRESS");
test_assert_error(ifp == CL_FALSE,
"Device does not support Subgroups but "
"CL_DEVICE_SUB_GROUP_INDEPENDENT_FORWARD_PROGRESS "
"did not return CL_FALSE");
// clGetDeviceInfo, passing CL_DEVICE_EXTENSIONS
// Will not describe support for the cl_khr_subgroups extension if
// device does not support Subgroups.
bool supports_cl_khr_subgroups =
is_extension_available(deviceID, "cl_khr_subgroups");
test_assert_error(supports_cl_khr_subgroups == false,
"Device does not support Subgroups but does "
"support cl_khr_subgroups");
// clGetKernelSubGroupInfo
// Returns CL_INVALID_OPERATION if device does not support Subgroups.
size_t sz = SIZE_MAX;
error = clGetKernelSubGroupInfo(kernel, deviceID,
CL_KERNEL_MAX_NUM_SUB_GROUPS, 0, NULL,
sizeof(sz), &sz, NULL);
test_failure_error(
error, CL_INVALID_OPERATION,
"Device does not support Subgroups but clGetKernelSubGroupInfo did "
"not return CL_INVALID_OPERATION");
}
return TEST_PASS;
}
static void CL_CALLBACK program_callback(cl_program, void*) {}
int test_consistency_prog_ctor_dtor(cl_device_id deviceID, cl_context context,
cl_command_queue queue, int num_elements)
{
cl_int error;
clProgramWrapper program;
clKernelWrapper kernel;
// Test setup:
error = create_single_kernel_helper(context, &program, &kernel, 1,
&test_kernel, "test");
test_error(error, "Unable to create test kernel");
// clGetProgramInfo, passing CL_PROGRAM_SCOPE_GLOBAL_CTORS_PRESENT or
// CL_PROGRAM_SCOPE_GLOBAL_DTORS_PRESENT
// Returns CL_FALSE if no devices in the context associated with program
// support Program Initialization and Clean-Up Kernels.
cl_bool b = CL_FALSE;
error = clGetProgramInfo(program, CL_PROGRAM_SCOPE_GLOBAL_CTORS_PRESENT,
sizeof(b), &b, NULL);
test_error(error, "Unable to query CL_PROGRAM_SCOPE_GLOBAL_CTORS_PRESENT");
test_assert_error(
b == CL_FALSE,
"CL_PROGRAM_SCOPE_GLOBAL_CTORS_PRESENT did not return CL_FALSE");
error = clGetProgramInfo(program, CL_PROGRAM_SCOPE_GLOBAL_DTORS_PRESENT,
sizeof(b), &b, NULL);
test_error(error, "Unable to query CL_PROGRAM_SCOPE_GLOBAL_DTORS_PRESENT");
test_assert_error(
b == CL_FALSE,
"CL_PROGRAM_SCOPE_GLOBAL_DTORS_PRESENT did not return CL_FALSE");
// clSetProgramReleaseCallback
// Returns CL_INVALID_OPERATION if no devices in the context associated with
// program support Program Initialization and Clean-Up Kernels.
error = clSetProgramReleaseCallback(program, program_callback, NULL);
test_failure_error(
error, CL_INVALID_OPERATION,
"clSetProgramReleaseCallback did not return CL_INVALID_OPERATION");
return TEST_PASS;
}
int test_consistency_3d_image_writes(cl_device_id deviceID, cl_context context,
cl_command_queue queue, int num_elements)
{
// clGetSupportedImageFormats, passing CL_MEM_OBJECT_IMAGE3D and one of
// CL_MEM_WRITE_ONLY, CL_MEM_READ_WRITE, or CL_MEM_KERNEL_READ_AND_WRITE
// Returns an empty set (such as num_image_formats equal to 0),
// indicating that no image formats are supported for writing to 3D
// image objects, if no devices in context support Writing to 3D Image
// Objects.
cl_int error;
cl_uint total3DImageWriteFormats = 0;
const cl_mem_flags mem_flags[] = {
CL_MEM_WRITE_ONLY,
CL_MEM_READ_WRITE,
CL_MEM_KERNEL_READ_AND_WRITE,
};
for (int i = 0; i < ARRAY_SIZE(mem_flags); i++)
{
cl_uint numImageFormats = 0;
error = clGetSupportedImageFormats(context, mem_flags[i],
CL_MEM_OBJECT_IMAGE3D, 0, NULL,
&numImageFormats);
test_error(
error,
"Unable to query number of CL_MEM_OBJECT_IMAGE3D image formats");
total3DImageWriteFormats += numImageFormats;
}
bool supports_cl_khr_3d_image_writes =
is_extension_available(deviceID, "cl_khr_3d_image_writes");
if (total3DImageWriteFormats == 0)
{
// clGetDeviceInfo, passing CL_DEVICE_EXTENSIONS
// Will not describe support for the cl_khr_3d_image_writes extension if
// device does not support Writing to 3D Image Objects.
test_assert_error(supports_cl_khr_3d_image_writes == false,
"Device does not support Writing to 3D Image Objects "
"but does support cl_khr_3d_image_writes");
}
else
{
test_assert_error(supports_cl_khr_3d_image_writes,
"Device supports Writing to 3D Image Objects but "
"does not support cl_khr_3d_image_writes");
}
return TEST_PASS;
}