mirror of
https://github.com/KhronosGroup/OpenCL-CTS.git
synced 2026-03-19 06:09:01 +00:00
Initial open source release of OpenCL 2.2 CTS.
This commit is contained in:
Kedar Patil
230
test_conformance/c11_atomics/main.cpp
Normal file
230
test_conformance/c11_atomics/main.cpp
Normal file
@@ -0,0 +1,230 @@
|
||||
//
|
||||
// Copyright (c) 2017 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 "../../test_common/harness/testHarness.h"
|
||||
#include <iostream>
|
||||
#include <string>
|
||||
|
||||
bool gHost = false; // flag for testing native host threads (test verification)
|
||||
bool gOldAPI = false; // flag for testing with old API (OpenCL 1.2) - test verification
|
||||
bool gContinueOnError = false; // execute all cases even when errors detected
|
||||
bool gNoGlobalVariables = false; // disable cases with global atomics in program scope
|
||||
bool gNoGenericAddressSpace = false; // disable cases with generic address space
|
||||
bool gUseHostPtr = false; // use malloc/free with CL_MEM_USE_HOST_PTR instead of clSVMAlloc/clSVMFree
|
||||
bool gDebug = false; // always print OpenCL kernel code
|
||||
int gInternalIterations = 10000; // internal test iterations for atomic operation, sufficient to verify atomicity
|
||||
int gMaxDeviceThreads = 1024; // maximum number of threads executed on OCL device
|
||||
|
||||
extern int test_atomic_init(cl_device_id deviceID, cl_context context, cl_command_queue queue, int num_elements);
|
||||
extern int test_atomic_store(cl_device_id deviceID, cl_context context, cl_command_queue queue, int num_elements);
|
||||
extern int test_atomic_load(cl_device_id deviceID, cl_context context, cl_command_queue queue, int num_elements);
|
||||
extern int test_atomic_store_load(cl_device_id deviceID, cl_context context, cl_command_queue queue, int num_elements);
|
||||
extern int test_atomic_exchange(cl_device_id deviceID, cl_context context, cl_command_queue queue, int num_elements);
|
||||
extern int test_atomic_compare_exchange_weak(cl_device_id deviceID, cl_context context, cl_command_queue queue, int num_elements);
|
||||
extern int test_atomic_compare_exchange_strong(cl_device_id deviceID, cl_context context, cl_command_queue queue, int num_elements);
|
||||
extern int test_atomic_fetch_add(cl_device_id deviceID, cl_context context, cl_command_queue queue, int num_elements);
|
||||
extern int test_atomic_fetch_sub(cl_device_id deviceID, cl_context context, cl_command_queue queue, int num_elements);
|
||||
extern int test_atomic_fetch_and(cl_device_id deviceID, cl_context context, cl_command_queue queue, int num_elements);
|
||||
extern int test_atomic_fetch_or(cl_device_id deviceID, cl_context context, cl_command_queue queue, int num_elements);
|
||||
extern int test_atomic_fetch_orand(cl_device_id deviceID, cl_context context, cl_command_queue queue, int num_elements);
|
||||
extern int test_atomic_fetch_xor(cl_device_id deviceID, cl_context context, cl_command_queue queue, int num_elements);
|
||||
extern int test_atomic_fetch_xor2(cl_device_id deviceID, cl_context context, cl_command_queue queue, int num_elements);
|
||||
extern int test_atomic_fetch_min(cl_device_id deviceID, cl_context context, cl_command_queue queue, int num_elements);
|
||||
extern int test_atomic_fetch_max(cl_device_id deviceID, cl_context context, cl_command_queue queue, int num_elements);
|
||||
extern int test_atomic_flag(cl_device_id deviceID, cl_context context, cl_command_queue queue, int num_elements);
|
||||
extern int test_atomic_fence(cl_device_id deviceID, cl_context context, cl_command_queue queue, int num_elements);
|
||||
|
||||
extern int test_atomic_init_svm(cl_device_id deviceID, cl_context context, cl_command_queue queue, int num_elements);
|
||||
extern int test_atomic_store_svm(cl_device_id deviceID, cl_context context, cl_command_queue queue, int num_elements);
|
||||
extern int test_atomic_load_svm(cl_device_id deviceID, cl_context context, cl_command_queue queue, int num_elements);
|
||||
extern int test_atomic_store_load_svm(cl_device_id deviceID, cl_context context, cl_command_queue queue, int num_elements);
|
||||
extern int test_atomic_exchange_svm(cl_device_id deviceID, cl_context context, cl_command_queue queue, int num_elements);
|
||||
extern int test_atomic_compare_exchange_weak_svm(cl_device_id deviceID, cl_context context, cl_command_queue queue, int num_elements);
|
||||
extern int test_atomic_compare_exchange_strong_svm(cl_device_id deviceID, cl_context context, cl_command_queue queue, int num_elements);
|
||||
extern int test_atomic_fetch_add_svm(cl_device_id deviceID, cl_context context, cl_command_queue queue, int num_elements);
|
||||
extern int test_atomic_fetch_sub_svm(cl_device_id deviceID, cl_context context, cl_command_queue queue, int num_elements);
|
||||
extern int test_atomic_fetch_and_svm(cl_device_id deviceID, cl_context context, cl_command_queue queue, int num_elements);
|
||||
extern int test_atomic_fetch_or_svm(cl_device_id deviceID, cl_context context, cl_command_queue queue, int num_elements);
|
||||
extern int test_atomic_fetch_orand_svm(cl_device_id deviceID, cl_context context, cl_command_queue queue, int num_elements);
|
||||
extern int test_atomic_fetch_xor_svm(cl_device_id deviceID, cl_context context, cl_command_queue queue, int num_elements);
|
||||
extern int test_atomic_fetch_xor2_svm(cl_device_id deviceID, cl_context context, cl_command_queue queue, int num_elements);
|
||||
extern int test_atomic_fetch_min_svm(cl_device_id deviceID, cl_context context, cl_command_queue queue, int num_elements);
|
||||
extern int test_atomic_fetch_max_svm(cl_device_id deviceID, cl_context context, cl_command_queue queue, int num_elements);
|
||||
extern int test_atomic_flag_svm(cl_device_id deviceID, cl_context context, cl_command_queue queue, int num_elements);
|
||||
extern int test_atomic_fence_svm(cl_device_id deviceID, cl_context context, cl_command_queue queue, int num_elements);
|
||||
|
||||
basefn basefn_list[] = {
|
||||
test_atomic_init,
|
||||
test_atomic_store,
|
||||
test_atomic_load,
|
||||
test_atomic_exchange,
|
||||
test_atomic_compare_exchange_weak,
|
||||
test_atomic_compare_exchange_strong,
|
||||
test_atomic_fetch_add,
|
||||
test_atomic_fetch_sub,
|
||||
test_atomic_fetch_and,
|
||||
test_atomic_fetch_or,
|
||||
test_atomic_fetch_orand,
|
||||
test_atomic_fetch_xor,
|
||||
test_atomic_fetch_xor2,
|
||||
test_atomic_fetch_min,
|
||||
test_atomic_fetch_max,
|
||||
test_atomic_flag,
|
||||
test_atomic_fence,
|
||||
|
||||
test_atomic_init_svm,
|
||||
test_atomic_store_svm,
|
||||
test_atomic_load_svm,
|
||||
test_atomic_exchange_svm,
|
||||
test_atomic_compare_exchange_weak_svm,
|
||||
test_atomic_compare_exchange_strong_svm,
|
||||
test_atomic_fetch_add_svm,
|
||||
test_atomic_fetch_sub_svm,
|
||||
test_atomic_fetch_and_svm,
|
||||
test_atomic_fetch_or_svm,
|
||||
test_atomic_fetch_orand_svm,
|
||||
test_atomic_fetch_xor_svm,
|
||||
test_atomic_fetch_xor2_svm,
|
||||
test_atomic_fetch_min_svm,
|
||||
test_atomic_fetch_max_svm,
|
||||
test_atomic_flag_svm,
|
||||
test_atomic_fence_svm
|
||||
};
|
||||
|
||||
const char *basefn_names[] = {
|
||||
"atomic_init",
|
||||
"atomic_store",
|
||||
"atomic_load",
|
||||
"atomic_exchange",
|
||||
"atomic_compare_exchange_weak",
|
||||
"atomic_compare_exchange_strong",
|
||||
"atomic_fetch_add",
|
||||
"atomic_fetch_sub",
|
||||
"atomic_fetch_and",
|
||||
"atomic_fetch_or",
|
||||
"atomic_fetch_orand",
|
||||
"atomic_fetch_xor",
|
||||
"atomic_fetch_xor2",
|
||||
"atomic_fetch_min",
|
||||
"atomic_fetch_max",
|
||||
"atomic_flag",
|
||||
"atomic_fence",
|
||||
|
||||
"svm_atomic_init",
|
||||
"svm_atomic_store",
|
||||
"svm_atomic_load",
|
||||
"svm_atomic_exchange",
|
||||
"svm_atomic_compare_exchange_weak",
|
||||
"svm_atomic_compare_exchange_strong",
|
||||
"svm_atomic_fetch_add",
|
||||
"svm_atomic_fetch_sub",
|
||||
"svm_atomic_fetch_and",
|
||||
"svm_atomic_fetch_or",
|
||||
"svm_atomic_fetch_orand",
|
||||
"svm_atomic_fetch_xor",
|
||||
"svm_atomic_fetch_xor2",
|
||||
"svm_atomic_fetch_min",
|
||||
"svm_atomic_fetch_max",
|
||||
"svm_atomic_flag",
|
||||
"svm_atomic_fence",
|
||||
};
|
||||
|
||||
ct_assert((sizeof(basefn_names) / sizeof(basefn_names[0])) == (sizeof(basefn_list) / sizeof(basefn_list[0])));
|
||||
|
||||
int num_fns = sizeof(basefn_names) / sizeof(char *);
|
||||
|
||||
int main(int argc, const char *argv[])
|
||||
{
|
||||
bool noCert = false;
|
||||
while(true)
|
||||
{
|
||||
if(std::string(argv[argc-1]) == "-h")
|
||||
{
|
||||
log_info("Test options:\n");
|
||||
log_info(" '-host' flag for testing native host threads (test verification)\n");
|
||||
log_info(" '-oldAPI' flag for testing with old API (OpenCL 1.2) - test verification\n");
|
||||
log_info(" '-continueOnError' execute all cases even when errors detected\n");
|
||||
log_info(" '-noGlobalVariables' disable cases with global atomics in program scope\n");
|
||||
log_info(" '-noGenericAddressSpace' disable cases with generic address space\n");
|
||||
log_info(" '-useHostPtr' use malloc/free with CL_MEM_USE_HOST_PTR instead of clSVMAlloc/clSVMFree\n");
|
||||
log_info(" '-debug' always print OpenCL kernel code\n");
|
||||
log_info(" '-internalIterations <X>' internal test iterations for atomic operation, sufficient to verify atomicity\n");
|
||||
log_info(" '-maxDeviceThreads <X>' maximum number of threads executed on OCL device");
|
||||
|
||||
break;
|
||||
}
|
||||
if(std::string(argv[argc-1]) == "-host") // temporary option for testing native host threads
|
||||
{
|
||||
gHost = true;
|
||||
noCert = true;
|
||||
}
|
||||
else if(std::string(argv[argc-1]) == "-oldAPI") // temporary flag for testing with old API (OpenCL 1.2)
|
||||
{
|
||||
gOldAPI = true;
|
||||
gNoGlobalVariables = true;
|
||||
gNoGenericAddressSpace = true;
|
||||
gUseHostPtr = true;
|
||||
noCert = true;
|
||||
}
|
||||
else if(std::string(argv[argc-1]) == "-continueOnError") // execute all cases even when errors detected
|
||||
gContinueOnError = true;
|
||||
else if(std::string(argv[argc-1]) == "-noGlobalVariables") // disable cases with global atomics in program scope
|
||||
{
|
||||
gNoGlobalVariables = true;
|
||||
noCert = true;
|
||||
}
|
||||
else if(std::string(argv[argc-1]) == "-noGenericAddressSpace") // disable cases with generic address space
|
||||
{
|
||||
gNoGenericAddressSpace = true;
|
||||
noCert = true;
|
||||
}
|
||||
else if(std::string(argv[argc-1]) == "-useHostPtr") // use malloc/free with CL_MEM_USE_HOST_PTR instead of clSVMAlloc/clSVMFree
|
||||
{
|
||||
gUseHostPtr = true;
|
||||
noCert = true;
|
||||
}
|
||||
else if(std::string(argv[argc-1]) == "-debug") // print OpenCL kernel code
|
||||
gDebug = true;
|
||||
else if(argc > 2 && std::string(argv[argc-2]) == "-internalIterations") // internal test iterations for atomic operation, sufficient to verify atomicity
|
||||
{
|
||||
gInternalIterations = atoi(argv[argc-1]);
|
||||
if(gInternalIterations < 1)
|
||||
{
|
||||
log_info("Invalid value: Number of internal iterations (%d) must be > 0\n", gInternalIterations);
|
||||
return -1;
|
||||
}
|
||||
argc--;
|
||||
noCert = true;
|
||||
}
|
||||
else if(argc > 2 && std::string(argv[argc-2]) == "-maxDeviceThreads") // maximum number of threads executed on OCL device
|
||||
{
|
||||
gMaxDeviceThreads = atoi(argv[argc-1]);
|
||||
argc--;
|
||||
noCert = true;
|
||||
}
|
||||
else
|
||||
break;
|
||||
argc--;
|
||||
}
|
||||
if(noCert)
|
||||
{
|
||||
log_info("\n" );
|
||||
log_info("*** ***\n");
|
||||
log_info("*** WARNING: Test execution in debug mode (forced by command-line option)! ***\n");
|
||||
log_info("*** Use of this mode is not sufficient to verify correctness. ***\n");
|
||||
log_info("*** ***\n");
|
||||
}
|
||||
return runTestHarness(argc, argv, num_fns, basefn_list, basefn_names, false, false, 0);
|
||||
}
|
||||
Reference in New Issue
Block a user