🏡 index : cold-air-networks/mirror-opencl-cts.git

📄 .appveyor.yml
📄 .clang-format
📄 .gitattributes
📁 .github
📁 workflows
📄 presubmit.yml
📄 CMakeLists.txt
📄 CODE_OF_CONDUCT.md
📄 LICENSE.txt
📄 README.md
📄 check-format.sh
📄 presubmit.sh
📄 readme-spir-v-binaries.txt
📁 test_common
📄 CMakeLists.txt
📁 autotest
📄 autotest.hpp
📄 test_suite.hpp
📄 config.hpp
📁 gl
📄 gl_headers.h
📄 helpers.cpp
📄 helpers.h
📄 setup.h
📄 setup_osx.cpp
📄 setup_win32.cpp
📄 setup_x11.cpp
📁 gles
📄 gl_headers.h
📄 helpers.cpp
📄 helpers.h
📄 setup.h
📁 harness
📄 ThreadPool.cpp
📄 ThreadPool.h
📄 alloc.h
📄 clImageHelper.h
📄 cl_offline_compiler-interface.txt
📄 compat.h
📄 conversions.cpp
📄 conversions.h
📄 crc32.cpp
📄 crc32.h
📄 deviceInfo.cpp
📄 deviceInfo.h
📄 errorHelpers.cpp
📄 errorHelpers.h
📄 featureHelpers.cpp
📄 featureHelpers.h
📄 fpcontrol.h
📄 genericThread.cpp
📄 genericThread.h
📄 imageHelpers.cpp
📄 imageHelpers.h
📄 kernelHelpers.cpp
📄 kernelHelpers.h
📄 mingw_compat.c
📄 mingw_compat.h
📄 msvc9.c
📄 mt19937.cpp
📄 mt19937.h
📄 os_helpers.cpp
📄 os_helpers.h
📄 parseParameters.cpp
📄 parseParameters.h
📄 propertyHelpers.cpp
📄 propertyHelpers.h
📄 ref_counting.h
📄 rounding_mode.cpp
📄 rounding_mode.h
📄 testHarness.cpp
📄 testHarness.h
📄 test_mt19937.c
📄 threadTesting.cpp
📄 threadTesting.h
📄 typeWrappers.cpp
📄 typeWrappers.h
📁 miniz
📄 CMakeLists.txt
📄 miniz.c
📄 miniz.h
📁 test_conformance
📄 CMakeCommon.txt
📄 CMakeLists.txt
📁 SVM
📄 CMakeLists.txt
📄 common.h
📄 main.cpp
📄 test_allocate_shared_buffer.cpp
📄 test_byte_granularity.cpp
📄 test_cross_buffer_pointers.cpp
📄 test_enqueue_api.cpp
📄 test_fine_grain_memory_consistency.cpp
📄 test_fine_grain_sync_buffers.cpp
📄 test_migrate.cpp
📄 test_pointer_passing.cpp
📄 test_set_kernel_exec_info_svm_ptrs.cpp
📄 test_shared_address_space_coarse_grain.cpp
📄 test_shared_address_space_fine_grain.cpp
📄 test_shared_address_space_fine_grain_buffers.cpp
📄 test_shared_sub_buffers.cpp
📁 allocations
📄 CMakeLists.txt
📄 allocation_execute.cpp
📄 allocation_execute.h
📄 allocation_fill.cpp
📄 allocation_fill.h
📄 allocation_functions.cpp
📄 allocation_functions.h
📄 allocation_utils.cpp
📄 allocation_utils.h
📄 main.cpp
📄 testBase.h
📁 api
📄 CMakeLists.txt
📄 main.cpp
📄 negative_platform.cpp
📄 procs.h
📄 testBase.h
📄 test_api_consistency.cpp
📄 test_api_min_max.cpp
📄 test_binary.cpp
📄 test_bool.cpp
📄 test_clone_kernel.cpp
📄 test_context_destructor_callback.cpp
📄 test_create_context_from_type.cpp
📄 test_create_kernels.cpp
📄 test_device_min_data_type_align_size_alignment.cpp
📄 test_kernel_arg_changes.cpp
📄 test_kernel_arg_info.cpp
📄 test_kernel_arg_info_compatibility.cpp
📄 test_kernel_arg_multi_setup.cpp
📄 test_kernel_private_memory_size.cpp
📄 test_kernels.cpp
📄 test_mem_object_info.cpp
📄 test_mem_object_properties_queries.cpp
📄 test_mem_objects.cpp
📄 test_min_image_formats.cpp
📄 test_native_kernel.cpp
📄 test_null_buffer_arg.cpp
📄 test_pipe_properties_queries.cpp
📄 test_platform.cpp
📄 test_queries.cpp
📄 test_queue.cpp
📄 test_queue_hint.cpp
📄 test_queue_properties.cpp
📄 test_queue_properties_queries.cpp
📄 test_retain.cpp
📄 test_retain_program.cpp
📄 test_sub_group_dispatch.cpp
📄 test_zero_sized_enqueue.cpp
📁 atomics
📄 CMakeLists.txt
📄 main.cpp
📄 procs.h
📄 testBase.h
📄 test_atomics.cpp
📄 test_indexed_cases.cpp
📁 basic
📄 CMakeLists.txt
📄 main.cpp
📄 procs.h
📄 run_array
📄 run_array_image_copy
📄 run_image
📄 run_multi_read_image
📄 test_arraycopy.cpp
📄 test_arrayimagecopy.cpp
📄 test_arrayimagecopy3d.cpp
📄 test_arrayreadwrite.cpp
📄 test_astype.cpp
📄 test_async_copy.cpp
📄 test_async_copy2D.cpp
📄 test_async_copy3D.cpp
📄 test_async_copy_fence.cpp
📄 test_async_strided_copy.cpp
📄 test_barrier.cpp
📄 test_basic_parameter_types.cpp
📄 test_bufferreadwriterect.cpp
📄 test_constant.cpp
📄 test_constant_source.cpp
📄 test_createkernelsinprogram.cpp
📄 test_enqueue_map.cpp
📄 test_enqueued_local_size.cpp
📄 test_explicit_s2v.cpp
📄 test_float2int.cpp
📄 test_fpmath_float.cpp
📄 test_fpmath_float2.cpp
📄 test_fpmath_float4.cpp
📄 test_get_linear_ids.cpp
📄 test_global_linear_id.cpp
📄 test_global_work_offsets.cpp
📄 test_hiloeo.cpp
📄 test_hostptr.cpp
📄 test_if.cpp
📄 test_imagecopy.cpp
📄 test_imagecopy3d.cpp
📄 test_imagedim.cpp
📄 test_imagenpot.cpp
📄 test_imagerandomcopy.cpp
📄 test_imagereadwrite.cpp
📄 test_imagereadwrite3d.cpp
📄 test_int2float.cpp
📄 test_intmath.cpp
📄 test_kernel_call_kernel_function.cpp
📄 test_kernel_memory_alignment.cpp
📄 test_local.cpp
📄 test_local_kernel_scope.cpp
📄 test_local_linear_id.cpp
📄 test_loop.cpp
📄 test_multireadimagemultifmt.cpp
📄 test_multireadimageonefmt.cpp
📄 test_numeric_constants.cpp
📄 test_pointercast.cpp
📄 test_preprocessors.cpp
📄 test_progvar.cpp
📄 test_queue_priority.cpp
📄 test_readimage.cpp
📄 test_readimage3d.cpp
📄 test_readimage3d_fp32.cpp
📄 test_readimage3d_int16.cpp
📄 test_readimage_fp32.cpp
📄 test_readimage_int16.cpp
📄 test_rw_image_access_qualifier.cpp
📄 test_simple_image_pitch.cpp
📄 test_sizeof.cpp
📄 test_vec_type_hint.cpp
📄 test_vector_creation.cpp
📄 test_vector_swizzle.cpp
📄 test_vloadstore.cpp
📄 test_wg_barrier.cpp
📄 test_work_item_functions.cpp
📄 test_writeimage.cpp
📄 test_writeimage_fp32.cpp
📄 test_writeimage_int16.cpp
📁 buffers
📄 CMakeLists.txt
📄 array_info.cpp
📄 main.cpp
📄 procs.h
📄 test_buffer_copy.cpp
📄 test_buffer_fill.cpp
📄 test_buffer_map.cpp
📄 test_buffer_mem.cpp
📄 test_buffer_migrate.cpp
📄 test_buffer_read.cpp
📄 test_buffer_write.cpp
📄 test_image_migrate.cpp
📄 test_sub_buffers.cpp
📁 c11_atomics
📄 CMakeLists.txt
📄 common.cpp
📄 common.h
📄 host_atomics.cpp
📄 host_atomics.h
📄 main.cpp
📄 test_atomics.cpp
📁 clcpp
📄 CMakeLists.txt
📁 address_spaces
📄 CMakeLists.txt
📄 common.hpp
📄 main.cpp
📄 test_pointer_types.hpp
📄 test_storage_types.hpp
📁 api
📄 CMakeLists.txt
📄 main.cpp
📄 test_ctors.hpp
📄 test_ctors_dtors.hpp
📄 test_dtors.hpp
📄 test_spec_consts.hpp
📁 atomics
📄 CMakeLists.txt
📄 atomic_fetch.hpp
📄 main.cpp
📁 attributes
📄 CMakeLists.txt
📄 main.cpp
📄 test_ivdep.hpp
📄 test_max_size.hpp
📄 test_required_num_sub_groups.hpp
📄 common.hpp
📁 common_funcs
📄 CMakeLists.txt
📄 common_funcs.hpp
📄 main.cpp
📁 convert
📄 CMakeLists.txt
📄 convert_cast.hpp
📄 main.cpp
📁 device_queue
📄 CMakeLists.txt
📄 main.cpp
📄 test_enqueue.hpp
📄 funcs_test_utils.hpp
📁 geometric_funcs
📄 CMakeLists.txt
📄 fast_geometric_funcs.hpp
📄 geometric_funcs.hpp
📄 main.cpp
📁 images
📄 CMakeLists.txt
📄 common.hpp
📄 main.cpp
📄 test_read.hpp
📄 test_sample.hpp
📄 test_write.hpp
📁 integer_funcs
📄 24bit_funcs.hpp
📄 CMakeLists.txt
📄 bitwise_funcs.hpp
📄 common.hpp
📄 main.cpp
📄 numeric_funcs.hpp
📁 math_funcs
📄 CMakeLists.txt
📄 common.hpp
📄 comparison_funcs.hpp
📄 exponential_funcs.hpp
📄 floating_point_funcs.hpp
📄 half_math_funcs.hpp
📄 logarithmic_funcs.hpp
📄 main.cpp
📄 other_funcs.hpp
📄 power_funcs.hpp
📄 reference.hpp
📄 trigonometric_funcs.hpp
📁 pipes
📄 CMakeLists.txt
📄 main.cpp
📄 test_pipes.hpp
📁 program_scope_ctors_dtors
📄 CMakeLists.txt
📄 common.hpp
📄 main.cpp
📄 test_ctors_dtors.hpp
📁 reinterpret
📄 CMakeLists.txt
📄 as_type.hpp
📄 main.cpp
📁 relational_funcs
📄 CMakeLists.txt
📄 common.hpp
📄 comparison_funcs.hpp
📄 main.cpp
📄 select_funcs.hpp
📄 test_funcs.hpp
📁 spec_constants
📄 CMakeLists.txt
📄 common.hpp
📄 main.cpp
📄 test_spec_consts_attributes.hpp
📄 test_spec_consts_if.hpp
📄 test_spec_consts_init_vars.hpp
📄 spirv10_2016.04.27.7z
📁 subgroups
📄 CMakeLists.txt
📄 common.hpp
📄 main.cpp
📄 test_sg_all.hpp
📄 test_sg_any.hpp
📄 test_sg_broadcast.hpp
📄 test_sg_reduce.hpp
📄 test_sg_scan_exclusive.hpp
📄 test_sg_scan_inclusive.hpp
📁 synchronization
📄 CMakeLists.txt
📄 main.cpp
📁 named_barrier
📄 common.hpp
📄 test_named_barrier.hpp
📄 test_spec_example.hpp
📄 test_sub_group_barrier.hpp
📄 test_work_group_barrier.hpp
📁 utils_common
📄 errors.hpp
📄 is_vector_type.hpp
📄 kernel_helpers.hpp
📄 make_vector_type.hpp
📄 scalar_type.hpp
📄 string.hpp
📄 type_name.hpp
📄 type_supported.hpp
📄 vector_size.hpp
📁 utils_test
📄 binary.hpp
📄 compare.hpp
📁 detail
📄 base_func_type.hpp
📄 vec_helpers.hpp
📄 generate_inputs.hpp
📄 ternary.hpp
📄 unary.hpp
📁 vload_vstore
📄 CMakeLists.txt
📄 common.hpp
📄 half_utils.hpp
📄 main.cpp
📄 vload_funcs.hpp
📄 vstore_funcs.hpp
📁 workgroups
📄 CMakeLists.txt
📄 common.hpp
📄 main.cpp
📄 test_wg_all.hpp
📄 test_wg_any.hpp
📄 test_wg_broadcast.hpp
📄 test_wg_reduce.hpp
📄 test_wg_scan_exclusive.hpp
📄 test_wg_scan_inclusive.hpp
📁 workitems
📄 CMakeLists.txt
📄 main.cpp
📄 test_workitems.hpp
📁 commonfns
📄 CMakeLists.txt
📄 main.cpp
📄 procs.h
📄 test_binary_fn.cpp
📄 test_clamp.cpp
📄 test_degrees.cpp
📄 test_fmax.cpp
📄 test_fmaxf.cpp
📄 test_fmin.cpp
📄 test_fminf.cpp
📄 test_max.cpp
📄 test_maxf.cpp
📄 test_min.cpp
📄 test_minf.cpp
📄 test_mix.cpp
📄 test_radians.cpp
📄 test_sign.cpp
📄 test_smoothstep.cpp
📄 test_smoothstepf.cpp
📄 test_step.cpp
📄 test_stepf.cpp
📁 compiler
📄 CMakeLists.txt
📁 includeTestDirectory
📄 testIncludeFile.h
📄 main.cpp
📄 procs.h
📁 secondIncludeTestDirectory
📄 testIncludeFile.h
📄 testBase.h
📄 test_async_build.cpp
📄 test_build_helpers.cpp
📄 test_build_options.cpp
📄 test_compile.cpp
📄 test_compiler_defines_for_extensions.cpp
📄 test_feature_macro.cpp
📄 test_image_macro.cpp
📄 test_opencl_c_versions.cpp
📄 test_pragma_unroll.cpp
📄 test_preprocessor.cpp
📄 test_unload_platform_compiler.cpp
📄 test_unload_platform_compiler_resources.hpp
📄 write_kernel.spvasm32
📄 write_kernel.spvasm64
📁 computeinfo
📄 CMakeLists.txt
📄 conforming_version.cpp
📄 device_uuid.cpp
📄 extended_versioning.cpp
📄 main.cpp
📁 contractions
📄 CMakeLists.txt
📄 contractions.cpp
📁 conversions
📄 CMakeLists.txt
📄 Sleep.cpp
📄 Sleep.h
📄 basic_test_conversions.cpp
📄 basic_test_conversions.h
📄 fplib.cpp
📄 fplib.h
📄 run_batch
📄 test_conversions.cpp
📁 d3d10
📄 CMakeLists.txt
📄 buffer.cpp
📄 harness.cpp
📄 harness.h
📄 main.cpp
📄 misc.cpp
📄 texture2d.cpp
📄 texture3d.cpp
📁 d3d11
📄 CMakeLists.txt
📄 buffer.cpp
📄 harness.cpp
📄 harness.h
📄 main.cpp
📄 misc.cpp
📄 texture2d.cpp
📄 texture3d.cpp
📁 device_execution
📄 CMakeLists.txt
📄 device_info.cpp
📄 device_queue.cpp
📄 enqueue_block.cpp
📄 enqueue_flags.cpp
📄 enqueue_multi_queue.cpp
📄 enqueue_ndrange.cpp
📄 enqueue_profiling.cpp
📄 enqueue_wg_size.cpp
📄 execute_block.cpp
📄 host_multi_queue.cpp
📄 host_queue_order.cpp
📄 main.cpp
📄 nested_blocks.cpp
📄 procs.h
📄 utils.cpp
📄 utils.h
📁 device_partition
📄 CMakeLists.txt
📄 main.cpp
📄 procs.h
📄 testBase.h
📄 test_device_partition.cpp
📁 device_timer
📄 CMakeLists.txt
📄 main.cpp
📄 procs.h
📄 test_device_timer.cpp
📁 events
📄 CMakeLists.txt
📄 action_classes.cpp
📄 action_classes.h
📄 main.cpp
📄 procs.h
📄 testBase.h
📄 test_callbacks.cpp
📄 test_event_dependencies.cpp
📄 test_events.cpp
📄 test_userevents.cpp
📄 test_userevents_multithreaded.cpp
📄 test_waitlists.cpp
📁 extensions
📄 CMakeLists.txt
📁 cl_ext_cxx_for_opencl
📄 CMakeLists.txt
📄 cxx_for_opencl_ext.cpp
📄 cxx_for_opencl_ver.cpp
📄 main.cpp
📄 procs.h
📁 cl_khr_dx9_media_sharing
📄 CMakeLists.txt
📄 main.cpp
📄 procs.h
📄 test_create_context.cpp
📄 test_functions_api.cpp
📄 test_functions_kernel.cpp
📄 test_get_device_ids.cpp
📄 test_interop_sync.cpp
📄 test_memory_access.cpp
📄 test_other_data_types.cpp
📄 utils.cpp
📄 utils.h
📄 wrappers.cpp
📄 wrappers.h
📄 generate_spirv_offline.py
📁 generic_address_space
📄 CMakeLists.txt
📄 advanced_tests.cpp
📄 base.h
📄 basic_tests.cpp
📄 main.cpp
📄 stress_tests.cpp
📁 geometrics
📄 CMakeLists.txt
📄 main.cpp
📄 procs.h
📄 testBase.h
📄 test_geometrics.cpp
📄 test_geometrics_double.cpp
📁 gl
📄 CMakeLists.txt
📁 GLEW
📁 GL
📄 eglew.h
📄 glew.h
📄 glxew.h
📄 wglew.h
📄 glew.c
📄 common.h
📄 helpers.cpp
📄 main.cpp
📄 procs.h
📄 testBase.h
📄 test_buffers.cpp
📄 test_fence_sync.cpp
📄 test_image_methods.cpp
📄 test_images_1D.cpp
📄 test_images_1Darray.cpp
📄 test_images_2D.cpp
📄 test_images_2Darray.cpp
📄 test_images_3D.cpp
📄 test_images_depth.cpp
📄 test_images_getinfo_common.cpp
📄 test_images_multisample.cpp
📄 test_images_read_common.cpp
📄 test_images_write_common.cpp
📄 test_renderbuffer.cpp
📄 test_renderbuffer_info.cpp
📁 gles
📄 CMakeLists.txt
📄 helpers.cpp
📄 main.cpp
📄 procs.h
📄 setup_egl.cpp
📄 testBase.h
📄 test_buffers.cpp
📄 test_fence_sync.cpp
📄 test_images_2D.cpp
📄 test_images_2D_info.cpp
📄 test_images_3D.cpp
📄 test_images_3D_info.cpp
📄 test_renderbuffer.cpp
📄 test_renderbuffer_info.cpp
📁 half
📄 CMakeLists.txt
📄 Test_roundTrip.cpp
📄 Test_vLoadHalf.cpp
📄 Test_vStoreHalf.cpp
📄 cl_utils.cpp
📄 cl_utils.h
📄 main.cpp
📄 test_config.h
📄 tests.h
📁 images
📄 CMakeLists.txt
📁 clCopyImage
📄 CMakeLists.txt
📄 main.cpp
📄 test_copy_1D.cpp
📄 test_copy_1D_array.cpp
📄 test_copy_2D.cpp
📄 test_copy_2D_2D_array.cpp
📄 test_copy_2D_3D.cpp
📄 test_copy_2D_array.cpp
📄 test_copy_3D.cpp
📄 test_copy_3D_2D_array.cpp
📄 test_copy_generic.cpp
📄 test_loops.cpp
📁 clFillImage
📄 CMakeLists.txt
📄 main.cpp
📄 test_fill_1D.cpp
📄 test_fill_1D_array.cpp
📄 test_fill_2D.cpp
📄 test_fill_2D_array.cpp
📄 test_fill_3D.cpp
📄 test_fill_generic.cpp
📄 test_loops.cpp
📁 clGetInfo
📄 CMakeLists.txt
📄 main.cpp
📄 test_1D.cpp
📄 test_1D_2D_array.cpp
📄 test_2D.cpp
📄 test_3D.cpp
📄 test_loops.cpp
📁 clReadWriteImage
📄 CMakeLists.txt
📄 main.cpp
📄 test_loops.cpp
📄 test_read_1D.cpp
📄 test_read_1D_array.cpp
📄 test_read_2D.cpp
📄 test_read_2D_array.cpp
📄 test_read_3D.cpp
📄 common.cpp
📄 common.h
📁 kernel_image_methods
📄 CMakeLists.txt
📄 main.cpp
📄 test_1D.cpp
📄 test_1D_array.cpp
📄 test_2D.cpp
📄 test_2D_array.cpp
📄 test_3D.cpp
📄 test_loops.cpp
📁 kernel_read_write
📄 CMakeLists.txt
📄 main.cpp
📄 test_common.cpp
📄 test_common.h
📄 test_iterations.cpp
📄 test_loops.cpp
📄 test_read_1D.cpp
📄 test_read_1D_array.cpp
📄 test_read_2D_array.cpp
📄 test_read_3D.cpp
📄 test_write_1D.cpp
📄 test_write_1D_array.cpp
📄 test_write_2D_array.cpp
📄 test_write_3D.cpp
📄 test_write_image.cpp
📁 samplerlessReads
📄 CMakeLists.txt
📄 main.cpp
📄 test_iterations.cpp
📄 test_loops.cpp
📄 test_read_1D.cpp
📄 test_read_1D_array.cpp
📄 test_read_1D_buffer.cpp
📄 test_read_2D_array.cpp
📄 test_read_3D.cpp
📄 testBase.h
📁 integer_ops
📄 CMakeLists.txt
📄 main.cpp
📄 procs.h
📄 testBase.h
📄 test_abs.cpp
📄 test_absdiff.cpp
📄 test_add_sat.cpp
📄 test_int_basic_ops.cpp
📄 test_integers.cpp
📄 test_intmad24.cpp
📄 test_intmul24.cpp
📄 test_popcount.cpp
📄 test_sub_sat.cpp
📄 test_unary_ops.cpp
📄 test_upsample.cpp
📄 verification_and_generation_functions.cpp
📁 math_brute_force
📄 CMakeLists.txt
📄 README.txt
📄 binary_double.cpp
📄 binary_float.cpp
📄 binary_i_double.cpp
📄 binary_i_float.cpp
📄 binary_operator_double.cpp
📄 binary_operator_float.cpp
📄 binary_two_results_i_double.cpp
📄 binary_two_results_i_float.cpp
📄 function_list.cpp
📄 function_list.h
📄 i_unary_double.cpp
📄 i_unary_float.cpp
📄 macro_binary_double.cpp
📄 macro_binary_float.cpp
📄 macro_unary_double.cpp
📄 macro_unary_float.cpp
📄 mad_double.cpp
📄 mad_float.cpp
📄 main.cpp
📄 reference_math.cpp
📄 reference_math.h
📄 run_math_brute_force_in_parallel.py
📄 sleep.cpp
📄 sleep.h
📄 ternary_double.cpp
📄 ternary_float.cpp
📄 test_functions.h
📄 unary_double.cpp
📄 unary_float.cpp
📄 unary_two_results_double.cpp
📄 unary_two_results_float.cpp
📄 unary_two_results_i_double.cpp
📄 unary_two_results_i_float.cpp
📄 unary_u_double.cpp
📄 unary_u_float.cpp
📄 utility.cpp
📄 utility.h
📁 mem_host_flags
📄 CMakeLists.txt
📄 C_host_memory_block.h
📄 checker.h
📄 checker_image_mem_host_no_access.hpp
📄 checker_image_mem_host_read_only.hpp
📄 checker_image_mem_host_write_only.hpp
📄 checker_mem_host_no_access.hpp
📄 checker_mem_host_read_only.hpp
📄 checker_mem_host_write_only.hpp
📄 main.cpp
📄 mem_host_buffer.cpp
📄 mem_host_image.cpp
📄 procs.h
📄 testBase.h
📁 multiple_device_context
📄 CMakeLists.txt
📄 main.cpp
📄 procs.h
📄 testBase.h
📄 test_multiple_contexts.cpp
📄 test_multiple_devices.cpp
📁 non_uniform_work_group
📄 CMakeLists.txt
📄 TestNonUniformWorkGroup.cpp
📄 TestNonUniformWorkGroup.h
📄 main.cpp
📄 procs.h
📄 test_advanced_2d.cpp
📄 test_advanced_3d.cpp
📄 test_advanced_other.cpp
📄 test_basic.cpp
📄 tools.cpp
📄 tools.h
📄 opencl_conformance_tests_conversions.csv
📄 opencl_conformance_tests_d3d.csv
📄 opencl_conformance_tests_full.csv
📄 opencl_conformance_tests_full_binary.csv
📄 opencl_conformance_tests_full_no_math_or_conversions.csv
📄 opencl_conformance_tests_full_spirv.csv
📄 opencl_conformance_tests_math.csv
📄 opencl_conformance_tests_quick.csv
📁 pipes
📄 CMakeLists.txt
📄 kernels.h
📄 main.cpp
📄 procs.h
📄 test_pipe_info.cpp
📄 test_pipe_limits.cpp
📄 test_pipe_query_functions.cpp
📄 test_pipe_read_write.cpp
📄 test_pipe_readwrite_errors.cpp
📄 test_pipe_subgroups.cpp
📁 printf
📄 CMakeLists.txt
📄 test_printf.cpp
📄 test_printf.h
📄 util_printf.cpp
📁 profiling
📄 CMakeLists.txt
📄 copy.cpp
📄 execute.cpp
📄 execute_multipass.cpp
📄 main.cpp
📄 procs.h
📄 readArray.cpp
📄 readImage.cpp
📄 writeArray.cpp
📄 writeImage.cpp
📁 relationals
📄 CMakeLists.txt
📄 main.cpp
📄 procs.h
📄 testBase.h
📄 test_comparisons_double.cpp
📄 test_comparisons_float.cpp
📄 test_relationals.cpp
📄 test_shuffles.cpp
📄 run_conformance.py
📁 select
📄 CMakeLists.txt
📄 test_select.cpp
📄 test_select.h
📄 util_select.cpp
📁 spir
📄 CMakeLists.txt
📄 api.zip
📄 atomics.zip
📄 basic.zip
📄 binary_type.zip
📄 commonfns.zip
📄 compile_and_link.zip
📄 conversions.zip
📄 datagen.cpp
📄 datagen.h
📄 enum_values.zip
📄 exceptions.h
📄 geometrics.zip
📄 half.zip
📄 images_kernel_read_write.zip
📄 images_samplerlessRead.zip
📄 integer_ops.zip
📄 kernel_attributes.zip
📄 kernel_image_methods.zip
📄 kernelargs.cpp
📄 kernelargs.h
📄 khr.csv
📄 main.cpp
📄 math_brute_force.zip
📄 printf.zip
📄 profiling.zip
📄 relationals.zip
📄 run_build_test.cpp
📄 run_build_test.h
📄 run_services.cpp
📄 run_services.h
📄 sampler_enumeration.zip
📄 select.zip
📄 typeinfo.h
📄 vec_align.zip
📄 vec_step.zip
📁 spirv_new
📄 CMakeLists.txt
📄 README.txt
📄 assemble_spirv.py
📄 main.cpp
📄 procs.h
📁 spirv_asm
📄 atomic_dec_global.spvasm32
📄 atomic_dec_global.spvasm64
📄 atomic_inc_global.spvasm32
📄 atomic_inc_global.spvasm64
📄 branch_conditional.spvasm32
📄 branch_conditional.spvasm64
📄 branch_conditional_weighted.spvasm32
📄 branch_conditional_weighted.spvasm64
📄 branch_simple.spvasm32
📄 branch_simple.spvasm64
📄 composite_construct_int4.spvasm32
📄 composite_construct_int4.spvasm64
📄 composite_construct_struct.spvasm32
📄 composite_construct_struct.spvasm64
📄 constant_char_simple.spvasm32
📄 constant_char_simple.spvasm64
📄 constant_double_simple.spvasm32
📄 constant_double_simple.spvasm64
📄 constant_false_simple.spvasm32
📄 constant_false_simple.spvasm64
📄 constant_float_simple.spvasm32
📄 constant_float_simple.spvasm64
📄 constant_half_simple.spvasm32
📄 constant_half_simple.spvasm64
📄 constant_int3_simple.spvasm32
📄 constant_int3_simple.spvasm64
📄 constant_int4_simple.spvasm32
📄 constant_int4_simple.spvasm64
📄 constant_int_simple.spvasm32
📄 constant_int_simple.spvasm64
📄 constant_long_simple.spvasm32
📄 constant_long_simple.spvasm64
📄 constant_short_simple.spvasm32
📄 constant_short_simple.spvasm64
📄 constant_struct_int_char_simple.spvasm32
📄 constant_struct_int_char_simple.spvasm64
📄 constant_true_simple.spvasm64
📄 constant_uchar_simple.spvasm32
📄 constant_uchar_simple.spvasm64
📄 constant_uint_simple.spvasm32
📄 constant_uint_simple.spvasm64
📄 constant_ulong_simple.spvasm32
📄 constant_ulong_simple.spvasm64
📄 constant_ushort_simple.spvasm32
📄 constant_ushort_simple.spvasm64
📄 copy_char_simple.spvasm32
📄 copy_char_simple.spvasm64
📄 copy_double_simple.spvasm32
📄 copy_double_simple.spvasm64
📄 copy_float_simple.spvasm32
📄 copy_float_simple.spvasm64
📄 copy_half_simple.spvasm32
📄 copy_half_simple.spvasm64
📄 copy_int3_simple.spvasm32
📄 copy_int3_simple.spvasm64
📄 copy_int4_simple.spvasm32
📄 copy_int4_simple.spvasm64
📄 copy_int_simple.spvasm32
📄 copy_int_simple.spvasm64
📄 copy_long_simple.spvasm32
📄 copy_long_simple.spvasm64
📄 copy_short_simple.spvasm32
📄 copy_short_simple.spvasm64
📄 copy_struct_int_char_simple.spvasm32
📄 copy_struct_int_char_simple.spvasm64
📄 copy_struct_int_float_simple.spvasm32
📄 copy_struct_int_float_simple.spvasm64
📄 copy_uint_simple.spvasm64
📄 copy_ulong_simple.spvasm32
📄 copy_ulong_simple.spvasm64
📄 copy_ushort_simple.spvasm32
📄 copy_ushort_simple.spvasm64
📄 decorate_aliased.spvasm32
📄 decorate_aliased.spvasm64
📄 decorate_alignment.spvasm32
📄 decorate_alignment.spvasm64
📄 decorate_constant.spvasm32
📄 decorate_constant.spvasm64
📄 decorate_constant_fail.spvasm32
📄 decorate_constant_fail.spvasm64
📄 decorate_cpacked.spvasm32
📄 decorate_cpacked.spvasm64
📄 decorate_restrict.spvasm32
📄 decorate_restrict.spvasm64
📄 decorate_rounding_rte_double_long.spvasm32
📄 decorate_rounding_rte_double_long.spvasm64
📄 decorate_rounding_rte_float_int.spvasm32
📄 decorate_rounding_rte_float_int.spvasm64
📄 decorate_rounding_rtn_double_long.spvasm32
📄 decorate_rounding_rtn_double_long.spvasm64
📄 decorate_rounding_rtn_float_int.spvasm32
📄 decorate_rounding_rtn_float_int.spvasm64
📄 decorate_rounding_rtp_double_long.spvasm32
📄 decorate_rounding_rtp_double_long.spvasm64
📄 decorate_rounding_rtp_float_int.spvasm32
📄 decorate_rounding_rtp_float_int.spvasm64
📄 decorate_rounding_rtz_double_long.spvasm32
📄 decorate_rounding_rtz_double_long.spvasm64
📄 decorate_saturated_conversion_int.spvasm64
📄 decorate_saturated_conversion_short.spvasm32
📄 decorate_saturated_conversion_short.spvasm64
📄 decorate_saturated_conversion_uchar.spvasm32
📄 decorate_saturated_conversion_uchar.spvasm64
📄 decorate_saturated_conversion_uint.spvasm32
📄 decorate_saturated_conversion_uint.spvasm64
📄 decorate_saturated_conversion_ushort.spvasm32
📄 decorate_saturated_conversion_ushort.spvasm64
📄 ext_cl_khr_spirv_no_integer_wrap_decoration_fadd_int.spvasm32
📄 ext_cl_khr_spirv_no_integer_wrap_decoration_fadd_int.spvasm64
📄 ext_cl_khr_spirv_no_integer_wrap_decoration_fadd_uint.spvasm32
📄 ext_cl_khr_spirv_no_integer_wrap_decoration_fadd_uint.spvasm64
📄 ext_cl_khr_spirv_no_integer_wrap_decoration_fmul_int.spvasm32
📄 ext_cl_khr_spirv_no_integer_wrap_decoration_fmul_int.spvasm64
📄 ext_cl_khr_spirv_no_integer_wrap_decoration_fmul_uint.spvasm32
📄 ext_cl_khr_spirv_no_integer_wrap_decoration_fmul_uint.spvasm64
📄 ext_cl_khr_spirv_no_integer_wrap_decoration_fnegate_int.spvasm32
📄 ext_cl_khr_spirv_no_integer_wrap_decoration_fnegate_int.spvasm64
📄 ext_cl_khr_spirv_no_integer_wrap_decoration_fshiftleft_int.spvasm32
📄 ext_cl_khr_spirv_no_integer_wrap_decoration_fshiftleft_int.spvasm64
📄 ext_cl_khr_spirv_no_integer_wrap_decoration_fshiftleft_uint.spvasm32
📄 ext_cl_khr_spirv_no_integer_wrap_decoration_fshiftleft_uint.spvasm64
📄 ext_cl_khr_spirv_no_integer_wrap_decoration_fsub_int.spvasm32
📄 ext_cl_khr_spirv_no_integer_wrap_decoration_fsub_int.spvasm64
📄 ext_cl_khr_spirv_no_integer_wrap_decoration_fsub_uint.spvasm32
📄 ext_cl_khr_spirv_no_integer_wrap_decoration_fsub_uint.spvasm64
📄 fadd_double.spvasm32
📄 fadd_double.spvasm64
📄 fadd_double2.spvasm32
📄 fadd_double2.spvasm64
📄 fadd_half.spvasm64
📄 fdiv_double.spvasm32
📄 fdiv_double.spvasm64
📄 fdiv_double2.spvasm32
📄 fdiv_double2.spvasm64
📄 fdiv_float.spvasm32
📄 fdiv_float.spvasm64
📄 fdiv_float4.spvasm32
📄 fdiv_float4.spvasm64
📄 fdiv_half.spvasm32
📄 fdiv_half.spvasm64
📄 fmod_double.spvasm32
📄 fmod_double.spvasm64
📄 fmod_double2.spvasm32
📄 fmod_double2.spvasm64
📄 fmod_float.spvasm32
📄 fmod_float.spvasm64
📄 fmod_float4.spvasm32
📄 fmod_float4.spvasm64
📄 fmod_half.spvasm32
📄 fmod_half.spvasm64
📄 fmul_double.spvasm32
📄 fmul_double.spvasm64
📄 fmul_double2.spvasm32
📄 fmul_double2.spvasm64
📄 fmul_float.spvasm32
📄 frem_double.spvasm32
📄 frem_double.spvasm64
📄 frem_double2.spvasm32
📄 frem_double2.spvasm64
📄 frem_float.spvasm32
📄 frem_float.spvasm64
📄 frem_float4.spvasm32
📄 frem_float4.spvasm64
📄 frem_half.spvasm32
📄 frem_half.spvasm64
📄 fsub_double.spvasm32
📄 fsub_double.spvasm64
📄 fsub_double2.spvasm32
📄 fsub_double2.spvasm64
📄 fsub_float.spvasm32
📄 fsub_float.spvasm64
📄 fsub_float4.spvasm32
📄 fsub_float4.spvasm64
📄 fsub_half.spvasm32
📄 fsub_half.spvasm64
📄 label_simple.spvasm32
📄 label_simple.spvasm64
📄 lifetime_simple.spvasm32
📄 lifetime_simple.spvasm64
📄 linkage_export.spvasm32
📄 linkage_export.spvasm64
📄 linkage_import.spvasm32
📄 linkage_import.spvasm64
📄 loop_merge_branch_conditional_dont_unroll.spvasm32
📄 loop_merge_branch_conditional_dont_unroll.spvasm64
📄 loop_merge_branch_conditional_none.spvasm32
📄 loop_merge_branch_none.spvasm32
📄 loop_merge_branch_none.spvasm64
📄 loop_merge_branch_unroll.spvasm32
📄 loop_merge_branch_unroll.spvasm64
📄 op_function_const.spvasm32
📄 op_function_const.spvasm64
📄 op_function_inline.spvasm32
📄 op_function_inline.spvasm64
📄 op_function_noinline.spvasm32
📄 op_function_noinline.spvasm64
📄 op_function_none.spvasm32
📄 op_function_none.spvasm64
📄 op_function_pure.spvasm32
📄 op_function_pure.spvasm64
📄 op_function_pure_ptr.spvasm32
📄 op_function_pure_ptr.spvasm64
📄 op_neg_double.spvasm32
📄 op_neg_double.spvasm64
📄 op_neg_float.spvasm32
📄 op_neg_float.spvasm64
📄 op_neg_float4.spvasm32
📄 op_neg_float4.spvasm64
📄 op_neg_int.spvasm32
📄 op_neg_int.spvasm64
📄 op_neg_int4.spvasm32
📄 op_neg_int4.spvasm64
📄 op_neg_long.spvasm32
📄 op_neg_long.spvasm64
📄 op_neg_short.spvasm32
📄 op_neg_short.spvasm64
📄 op_not_int.spvasm32
📄 op_not_short.spvasm32
📄 op_not_short.spvasm64
📄 op_spec_constant_double_simple.spvasm32
📄 op_spec_constant_double_simple.spvasm64
📄 op_spec_constant_false_simple.spvasm32
📄 op_spec_constant_false_simple.spvasm64
📄 op_spec_constant_float_simple.spvasm32
📄 op_spec_constant_float_simple.spvasm64
📄 op_spec_constant_half_simple.spvasm32
📄 op_spec_constant_half_simple.spvasm64
📄 op_spec_constant_true_simple.spvasm32
📄 op_spec_constant_true_simple.spvasm64
📄 op_spec_constant_uchar_simple.spvasm32
📄 op_spec_constant_uchar_simple.spvasm64
📄 op_spec_constant_uint_simple.spvasm32
📄 op_spec_constant_uint_simple.spvasm64
📄 op_spec_constant_ulong_simple.spvasm32
📄 op_spec_constant_ulong_simple.spvasm64
📄 op_spec_constant_ushort_simple.spvasm32
📄 op_spec_constant_ushort_simple.spvasm64
📄 opaque.spvasm32
📄 opaque.spvasm64
📄 phi_2.spvasm32
📄 phi_2.spvasm64
📄 phi_3.spvasm32
📄 phi_3.spvasm64
📄 phi_4.spvasm32
📄 phi_4.spvasm64
📄 select_if_dont_flatten.spvasm32
📄 select_if_dont_flatten.spvasm64
📄 select_if_flatten.spvasm32
📄 select_switch_flatten.spvasm32
📄 select_switch_flatten.spvasm64
📄 select_switch_none.spvasm32
📄 select_switch_none.spvasm64
📄 undef_char_simple.spvasm32
📄 undef_char_simple.spvasm64
📄 undef_double_simple.spvasm32
📄 undef_double_simple.spvasm64
📄 undef_false_simple.spvasm32
📄 undef_false_simple.spvasm64
📄 undef_float_simple.spvasm32
📄 undef_float_simple.spvasm64
📄 undef_half_simple.spvasm32
📄 undef_half_simple.spvasm64
📄 undef_int3_simple.spvasm32
📄 undef_int3_simple.spvasm64
📄 undef_int4_simple.spvasm32
📄 undef_int4_simple.spvasm64
📄 undef_int_simple.spvasm32
📄 undef_int_simple.spvasm64
📄 undef_long_simple.spvasm32
📄 undef_long_simple.spvasm64
📄 undef_short_simple.spvasm32
📄 undef_short_simple.spvasm64
📄 undef_struct_int_char_simple.spvasm32
📄 undef_struct_int_char_simple.spvasm64
📄 undef_struct_int_float_simple.spvasm32
📄 undef_struct_int_float_simple.spvasm64
📄 undef_struct_struct_simple.spvasm32
📄 undef_struct_struct_simple.spvasm64
📄 undef_true_simple.spvasm32
📄 undef_ulong_simple.spvasm32
📄 undef_ulong_simple.spvasm64
📄 undef_ushort_simple.spvasm32
📄 undef_ushort_simple.spvasm64
📄 unreachable_simple.spvasm32
📄 unreachable_simple.spvasm64
📄 vector_char16_extract.spvasm32
📄 vector_char16_extract.spvasm64
📄 vector_char16_insert.spvasm32
📄 vector_char16_insert.spvasm64
📄 vector_double2_extract.spvasm32
📄 vector_double2_extract.spvasm64
📄 vector_double2_insert.spvasm32
📄 vector_double2_insert.spvasm64
📄 vector_float4_extract.spvasm32
📄 vector_float4_extract.spvasm64
📄 vector_float4_insert.spvasm32
📄 vector_float4_insert.spvasm64
📄 vector_int4_extract.spvasm32
📄 vector_int4_extract.spvasm64
📄 vector_int4_insert.spvasm32
📄 vector_int4_insert.spvasm64
📄 vector_long2_extract.spvasm32
📄 vector_long2_extract.spvasm64
📄 vector_long2_insert.spvasm32
📄 vector_long2_insert.spvasm64
📄 vector_times_scalar_double.spvasm32
📄 vector_times_scalar_double.spvasm64
📄 vector_times_scalar_float.spvasm32
📄 vector_times_scalar_float.spvasm64
📄 testBase.h
📄 test_cl_khr_spirv_no_integer_wrap_decoration.cpp
📄 test_decorate.cpp
📄 test_get_program_il.cpp
📄 test_linkage.cpp
📄 test_op_atomic.cpp
📄 test_op_branch.cpp
📄 test_op_branch_conditional.cpp
📄 test_op_composite_construct.cpp
📄 test_op_constant.cpp
📄 test_op_copy_object.cpp
📄 test_op_fmath.cpp
📄 test_op_function.cpp
📄 test_op_lifetime.cpp
📄 test_op_loop_merge.cpp
📄 test_op_negate.cpp
📄 test_op_opaque.cpp
📄 test_op_phi.cpp
📄 test_op_selection_merge.cpp
📄 test_op_spec_constant.cpp
📄 test_op_undef.cpp
📄 test_op_vector_extract.cpp
📄 test_op_vector_insert.cpp
📄 test_op_vector_times_scalar.cpp
📄 types.hpp
📁 subgroups
📄 CMakeLists.txt
📄 main.cpp
📄 procs.h
📄 subgroup_common_kernels.cpp
📄 subgroup_common_kernels.h
📄 subgroup_common_templates.h
📄 subhelpers.h
📄 test_barrier.cpp
📄 test_ifp.cpp
📄 test_queries.cpp
📄 test_subgroup.cpp
📄 test_subgroup_ballot.cpp
📄 test_subgroup_clustered_reduce.cpp
📄 test_subgroup_extended_types.cpp
📄 test_subgroup_non_uniform_arithmetic.cpp
📄 test_subgroup_non_uniform_vote.cpp
📄 test_subgroup_shuffle.cpp
📄 test_subgroup_shuffle_relative.cpp
📄 test_workitem.cpp
📄 submission_details_template.txt
📁 thread_dimensions
📄 CMakeLists.txt
📄 main.cpp
📄 procs.h
📄 test_thread_dimensions.cpp
📁 vectors
📄 CMakeLists.txt
📄 defines.h
📄 globals.cpp
📄 main.cpp
📄 procs.h
📄 structs.cpp
📄 structs.h
📄 testBase.h
📄 test_step.cpp
📄 test_vec_align.cpp
📄 type_replacer.cpp
📄 type_replacer.h
📁 workgroups
📄 CMakeLists.txt
📄 main.cpp
📄 procs.h
📄 testBase.h
📄 test_wg_all.cpp
📄 test_wg_any.cpp
📄 test_wg_broadcast.cpp
📄 test_wg_reduce.cpp
📄 test_wg_reduce_max.cpp
📄 test_wg_reduce_min.cpp
📄 test_wg_scan_exclusive_add.cpp
📄 test_wg_scan_exclusive_max.cpp
📄 test_wg_scan_exclusive_min.cpp
📄 test_wg_scan_inclusive_add.cpp
📄 test_wg_scan_inclusive_max.cpp
📄 test_wg_scan_inclusive_min.cpp 
//
// 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 "testBase.h"
#include "harness/typeWrappers.h"
#include "harness/testHarness.h"
#include <ctype.h>
#include <string.h>

const char *sample_single_param_kernel[] = {
    "__kernel void sample_test(__global int *src)\n"
    "{\n"
    "    int  tid = get_global_id(0);\n"
    "\n"
    "}\n" };

const char *sample_single_param_write_kernel[] = {
    "__kernel void sample_test(__global int *src)\n"
    "{\n"
    "    int  tid = get_global_id(0);\n"
    "     src[tid] = tid;\n"
    "\n"
    "}\n" };

const char *sample_read_image_kernel_pattern[] = {
    "__kernel void sample_test( __global float *result, ",  " )\n"
    "{\n"
    "  sampler_t sampler = CLK_NORMALIZED_COORDS_FALSE | CLK_ADDRESS_CLAMP | CLK_FILTER_NEAREST;\n"
    "    int  tid = get_global_id(0);\n"
    "    result[0] = 0.0f;\n",
    "\n"
    "}\n" };

const char *sample_write_image_kernel_pattern[] = {
    "__kernel void sample_test( ",  " )\n"
    "{\n"
    "    int  tid = get_global_id(0);\n",
    "\n"
    "}\n" };


const char *sample_large_parmam_kernel_pattern[] = {
    "__kernel void sample_test(%s, __global long *result)\n"
    "{\n"
    "result[0] = 0;\n"
    "%s"
    "\n"
    "}\n" };

const char *sample_large_int_parmam_kernel_pattern[] = {
    "__kernel void sample_test(%s, __global int *result)\n"
    "{\n"
    "result[0] = 0;\n"
    "%s"
    "\n"
    "}\n" };

const char *sample_sampler_kernel_pattern[] = {
    "__kernel void sample_test( read_only image2d_t src, __global int4 *dst", ", sampler_t sampler%d", ")\n"
    "{\n"
    "    int  tid = get_global_id(0);\n",
    "     dst[ 0 ] = read_imagei( src, sampler%d, (int2)( 0, 0 ) );\n",
    "\n"
    "}\n" };

const char *sample_const_arg_kernel[] = {
    "__kernel void sample_test(__constant int *src1, __global int *dst)\n"
    "{\n"
    "    int  tid = get_global_id(0);\n"
    "\n"
    "    dst[tid] = src1[tid];\n"
    "\n"
    "}\n" };

const char *sample_local_arg_kernel[] = {
    "__kernel void sample_test(__local int *src1, __global int *global_src, __global int *dst)\n"
    "{\n"
    "    int  tid = get_global_id(0);\n"
    "\n"
    "    src1[tid] = global_src[tid];\n"
    "    barrier(CLK_GLOBAL_MEM_FENCE);\n"
    "    dst[tid] = src1[tid];\n"
    "\n"
    "}\n" };

const char *sample_const_max_arg_kernel_pattern =
"__kernel void sample_test(__constant int *src1 %s, __global int *dst)\n"
"{\n"
"    int  tid = get_global_id(0);\n"
"\n"
"    dst[tid] = src1[tid];\n"
"%s"
"\n"
"}\n";

int test_min_max_thread_dimensions(cl_device_id deviceID, cl_context context, cl_command_queue queue, int num_elements)
{
    int error, retVal;
    unsigned int maxThreadDim, threadDim, i;
    clProgramWrapper program;
    clKernelWrapper kernel;
    clMemWrapper streams[1];
    size_t *threads, *localThreads;
    cl_event event;
    cl_int event_status;


    /* Get the max thread dimensions */
    error = clGetDeviceInfo( deviceID, CL_DEVICE_MAX_WORK_ITEM_DIMENSIONS, sizeof( maxThreadDim ), &maxThreadDim, NULL );
    test_error( error, "Unable to get max work item dimensions from device" );

    if( maxThreadDim < 3 )
    {
        log_error( "ERROR: Reported max work item dimensions is less than required! (%d)\n", maxThreadDim );
        return -1;
    }

    log_info("Reported max thread dimensions of %d.\n", maxThreadDim);

    /* Create a kernel to test with */
    if( create_single_kernel_helper( context, &program, &kernel, 1, sample_single_param_kernel, "sample_test" ) != 0 )
    {
        return -1;
    }

    /* Create some I/O streams */
    streams[0] = clCreateBuffer(context, CL_MEM_READ_WRITE,
                                sizeof(cl_int) * 100, NULL, &error);
    if( streams[0] == NULL )
    {
        log_error("ERROR: Creating test array failed!\n");
        return -1;
    }

    /* Set the arguments */
    error = clSetKernelArg( kernel, 0, sizeof( streams[0] ), &streams[0] );
    test_error( error, "Unable to set kernel arguments" );

    retVal = 0;

    /* Now try running the kernel with up to that many threads */
    for (threadDim=1; threadDim <= maxThreadDim; threadDim++)
    {
        threads = (size_t *)malloc( sizeof( size_t ) * maxThreadDim );
        localThreads = (size_t *)malloc( sizeof( size_t ) * maxThreadDim );
        for( i = 0; i < maxThreadDim; i++ )
        {
            threads[ i ] = 1;
            localThreads[i] = 1;
        }

        error = clEnqueueNDRangeKernel( queue, kernel, maxThreadDim, NULL, threads, localThreads, 0, NULL, &event );
        test_error( error, "Failed clEnqueueNDRangeKernel");

        // Verify that the event does not return an error from the execution
        error = clWaitForEvents(1, &event);
        test_error( error, "clWaitForEvent failed");
        error = clGetEventInfo(event, CL_EVENT_COMMAND_EXECUTION_STATUS, sizeof(event_status), &event_status, NULL);
        test_error( error, "clGetEventInfo for CL_EVENT_COMMAND_EXECUTION_STATUS failed");
        clReleaseEvent(event);
        if (event_status < 0)
            test_error(error, "Kernel execution event returned error");

        /* All done */
        free( threads );
        free( localThreads );
    }

    return retVal;
}


int test_min_max_work_items_sizes(cl_device_id deviceID, cl_context context, cl_command_queue queue, int num_elements)
{
    int error;
    size_t *deviceMaxWorkItemSize;
    unsigned int maxWorkItemDim;

    /* Get the max work item dimensions */
    error = clGetDeviceInfo( deviceID, CL_DEVICE_MAX_WORK_ITEM_DIMENSIONS, sizeof( maxWorkItemDim ), &maxWorkItemDim, NULL );
    test_error( error, "Unable to get max work item dimensions from device" );

    log_info("CL_DEVICE_MAX_WORK_ITEM_DIMENSIONS returned %d\n", maxWorkItemDim);
    deviceMaxWorkItemSize = (size_t*)malloc(sizeof(size_t)*maxWorkItemDim);
    error = clGetDeviceInfo( deviceID, CL_DEVICE_MAX_WORK_ITEM_SIZES, sizeof(size_t)*maxWorkItemDim, deviceMaxWorkItemSize, NULL );
    test_error( error, "clDeviceInfo for CL_DEVICE_MAX_WORK_ITEM_SIZES failed" );

    unsigned int i;
    int errors = 0;
    for(i=0; i<maxWorkItemDim; i++) {
        if (deviceMaxWorkItemSize[i]<1) {
            log_error("MAX_WORK_ITEM_SIZE in dimension %d is invalid: %lu\n", i, deviceMaxWorkItemSize[i]);
            errors++;
        } else {
            log_info("Dimension %d has max work item size %lu\n", i, deviceMaxWorkItemSize[i]);
        }
    }

    free(deviceMaxWorkItemSize);

    if (errors)
        return -1;
    return 0;
}



int test_min_max_work_group_size(cl_device_id deviceID, cl_context context, cl_command_queue queue, int num_elements)
{
    int error;
    size_t deviceMaxThreadSize;

    /* Get the max thread dimensions */
    error = clGetDeviceInfo( deviceID, CL_DEVICE_MAX_WORK_GROUP_SIZE, sizeof( deviceMaxThreadSize ), &deviceMaxThreadSize, NULL );
    test_error( error, "Unable to get max work group size from device" );

    log_info("Reported %ld max device work group size.\n", deviceMaxThreadSize);

    if( deviceMaxThreadSize == 0 )
    {
        log_error( "ERROR: Max work group size is reported as zero!\n" );
        return -1;
    }
    return 0;
}

int test_min_max_read_image_args(cl_device_id deviceID, cl_context context, cl_command_queue queue, int num_elements)
{
    int error;
    unsigned int maxReadImages, i;
    unsigned int deviceAddressSize;
    clProgramWrapper program;
    char readArgLine[128], *programSrc;
    const char *readArgPattern = ", read_only image2d_t srcimg%d";
    clKernelWrapper kernel;
    clMemWrapper    *streams, result;
    size_t threads[2];
    cl_image_format    image_format_desc;
    size_t maxParameterSize;
    cl_event event;
    cl_int event_status;
    cl_float image_data[4*4];
    float image_result = 0.0f;
    float actual_image_result;
    cl_uint minRequiredReadImages = gIsEmbedded ? 8 : 128;
    cl_device_type deviceType;

    PASSIVE_REQUIRE_IMAGE_SUPPORT( deviceID )
    image_format_desc.image_channel_order = CL_RGBA;
    image_format_desc.image_channel_data_type = CL_FLOAT;

    /* Get the max read image arg count */
    error = clGetDeviceInfo( deviceID, CL_DEVICE_MAX_READ_IMAGE_ARGS, sizeof( maxReadImages ), &maxReadImages, NULL );
    test_error( error, "Unable to get max read image arg count from device" );

    if( maxReadImages < minRequiredReadImages )
    {
        log_error( "ERROR: Reported max read image arg count is less than required! (%d)\n", maxReadImages );
        return -1;
    }

    log_info("Reported %d max read image args.\n", maxReadImages);

    error = clGetDeviceInfo( deviceID, CL_DEVICE_ADDRESS_BITS, sizeof( deviceAddressSize ), &deviceAddressSize, NULL );
    test_error( error, "Unable to query CL_DEVICE_ADDRESS_BITS for device" );
    deviceAddressSize /= 8; // convert from bits to bytes


    error = clGetDeviceInfo( deviceID, CL_DEVICE_MAX_PARAMETER_SIZE, sizeof( maxParameterSize ), &maxParameterSize, NULL );
    test_error( error, "Unable to get max parameter size from device" );

    if (!gIsEmbedded && maxReadImages >= 128 && maxParameterSize == 1024)
    {
        error = clGetDeviceInfo( deviceID, CL_DEVICE_TYPE, sizeof( deviceType ), &deviceType, NULL );
        test_error( error, "Unable to get device type from device" );

        if(deviceType != CL_DEVICE_TYPE_CUSTOM)
        {
            maxReadImages = 127;
        }
    }
    // Subtract the size of the result
    maxParameterSize -= deviceAddressSize;

    // Calculate the number we can use
    if (maxParameterSize/deviceAddressSize < maxReadImages) {
        log_info("WARNING: Max parameter size of %d bytes limits test to %d max image arguments.\n", (int)maxParameterSize, (int)(maxParameterSize/deviceAddressSize));
        maxReadImages = (unsigned int)(maxParameterSize/deviceAddressSize);
    }

    /* Create a program with that many read args */
    programSrc = (char *)malloc( strlen( sample_read_image_kernel_pattern[ 0 ] ) + ( strlen( readArgPattern ) + 6 ) * ( maxReadImages ) +
                                strlen( sample_read_image_kernel_pattern[ 1 ] ) + 1 + 40240);

    strcpy( programSrc, sample_read_image_kernel_pattern[ 0 ] );
    strcat( programSrc, "read_only image2d_t srcimg0" );
    for( i = 0; i < maxReadImages-1; i++ )
    {
        sprintf( readArgLine, readArgPattern, i+1 );
        strcat( programSrc, readArgLine );
    }
    strcat( programSrc, sample_read_image_kernel_pattern[ 1 ] );
    for ( i = 0; i < maxReadImages; i++) {
        sprintf( readArgLine, "\tresult[0] += read_imagef( srcimg%d, sampler, (int2)(0,0)).x;\n", i);
        strcat( programSrc, readArgLine );
    }
    strcat( programSrc, sample_read_image_kernel_pattern[ 2 ] );

    error = create_single_kernel_helper(context, &program, &kernel, 1, (const char **)&programSrc, "sample_test");
    test_error( error, "Failed to create the program and kernel.");
    free( programSrc );

    result = clCreateBuffer(context, CL_MEM_READ_WRITE, sizeof(cl_float), NULL,
                            &error);
    test_error( error, "clCreateBufer failed");

    /* Create some I/O streams */
    streams = new clMemWrapper[maxReadImages + 1];
    for( i = 0; i < maxReadImages; i++ )
    {
        image_data[0]=i;
        image_result+= image_data[0];
        streams[i] = create_image_2d( context, CL_MEM_READ_WRITE | CL_MEM_COPY_HOST_PTR, &image_format_desc, 4, 4, 0, image_data, &error );
        test_error( error, "Unable to allocate test image" );
    }

    error = clSetKernelArg( kernel, 0, sizeof( result ), &result );
    test_error( error, "Unable to set kernel arguments" );

    /* Set the arguments */
    for( i = 1; i < maxReadImages+1; i++ )
    {
        error = clSetKernelArg( kernel, i, sizeof( streams[i-1] ), &streams[i-1] );
        test_error( error, "Unable to set kernel arguments" );
    }

    /* Now try running the kernel */
    threads[0] = threads[1] = 1;
    error = clEnqueueNDRangeKernel( queue, kernel, 2, NULL, threads, NULL, 0, NULL, &event );
    test_error( error, "clEnqueueNDRangeKernel failed");

    // Verify that the event does not return an error from the execution
    error = clWaitForEvents(1, &event);
    test_error( error, "clWaitForEvent failed");
    error = clGetEventInfo(event, CL_EVENT_COMMAND_EXECUTION_STATUS, sizeof(event_status), &event_status, NULL);
    test_error( error, "clGetEventInfo for CL_EVENT_COMMAND_EXECUTION_STATUS failed");
    clReleaseEvent(event);
    if (event_status < 0)
        test_error(error, "Kernel execution event returned error");

    error = clEnqueueReadBuffer(queue, result, CL_TRUE, 0, sizeof(cl_float), &actual_image_result, 0, NULL, NULL);
    test_error(error, "clEnqueueReadBuffer failed");

    delete[] streams;

    if (actual_image_result != image_result) {
        log_error("Result failed to verify. Got %g, expected %g.\n", actual_image_result, image_result);
        return 1;
    }

    return 0;
}

int test_min_max_write_image_args(cl_device_id deviceID, cl_context context, cl_command_queue queue, int num_elements)
{
    int error;
    unsigned int maxWriteImages, i;
    clProgramWrapper program;
    char writeArgLine[128], *programSrc;
    const char *writeArgPattern = ", write_only image2d_t dstimg%d";
    clKernelWrapper kernel;
    clMemWrapper    *streams;
    size_t threads[2];
    cl_image_format    image_format_desc;
    size_t maxParameterSize;
    cl_event event;
    cl_int event_status;
    cl_uint minRequiredWriteImages = gIsEmbedded ? 1 : 8;


    PASSIVE_REQUIRE_IMAGE_SUPPORT( deviceID )
    image_format_desc.image_channel_order = CL_RGBA;
    image_format_desc.image_channel_data_type = CL_UNORM_INT8;

    /* Get the max read image arg count */
    error = clGetDeviceInfo( deviceID, CL_DEVICE_MAX_WRITE_IMAGE_ARGS, sizeof( maxWriteImages ), &maxWriteImages, NULL );
    test_error( error, "Unable to get max write image arg count from device" );

    if( maxWriteImages == 0 )
    {
        log_info( "WARNING: Device reports 0 for a max write image arg count (write image arguments unsupported). Skipping test (implicitly passes). This is only valid if the number of image formats is also 0.\n" );
        return 0;
    }

    if( maxWriteImages < minRequiredWriteImages )
    {
        log_error( "ERROR: Reported max write image arg count is less than required! (%d)\n", maxWriteImages );
        return -1;
    }

    log_info("Reported %d max write image args.\n", maxWriteImages);

    error = clGetDeviceInfo( deviceID, CL_DEVICE_MAX_PARAMETER_SIZE, sizeof( maxParameterSize ), &maxParameterSize, NULL );
    test_error( error, "Unable to get max parameter size from device" );

    // Calculate the number we can use
    if (maxParameterSize/sizeof(cl_mem) < maxWriteImages) {
        log_info("WARNING: Max parameter size of %d bytes limits test to %d max image arguments.\n", (int)maxParameterSize, (int)(maxParameterSize/sizeof(cl_mem)));
        maxWriteImages = (unsigned int)(maxParameterSize/sizeof(cl_mem));
    }

    /* Create a program with that many write args + 1 */
    programSrc = (char *)malloc( strlen( sample_write_image_kernel_pattern[ 0 ] ) + ( strlen( writeArgPattern ) + 6 ) * ( maxWriteImages + 1 ) +
                                strlen( sample_write_image_kernel_pattern[ 1 ] ) + 1 + 40240 );

    strcpy( programSrc, sample_write_image_kernel_pattern[ 0 ] );
    strcat( programSrc, "write_only image2d_t dstimg0" );
    for( i = 1; i < maxWriteImages; i++ )
    {
        sprintf( writeArgLine, writeArgPattern, i );
        strcat( programSrc, writeArgLine );
    }
    strcat( programSrc, sample_write_image_kernel_pattern[ 1 ] );
    for ( i = 0; i < maxWriteImages; i++) {
        sprintf( writeArgLine, "\twrite_imagef( dstimg%d, (int2)(0,0), (float4)(0,0,0,0));\n", i);
        strcat( programSrc, writeArgLine );
    }
    strcat( programSrc, sample_write_image_kernel_pattern[ 2 ] );

    error = create_single_kernel_helper(context, &program, &kernel, 1, (const char **)&programSrc, "sample_test");
    test_error( error, "Failed to create the program and kernel.");
    free( programSrc );


    /* Create some I/O streams */
    streams = new clMemWrapper[maxWriteImages + 1];
    for( i = 0; i < maxWriteImages; i++ )
    {
        streams[i] = create_image_2d( context, CL_MEM_READ_WRITE, &image_format_desc, 16, 16, 0, NULL, &error );
        test_error( error, "Unable to allocate test image" );
    }

    /* Set the arguments */
    for( i = 0; i < maxWriteImages; i++ )
    {
        error = clSetKernelArg( kernel, i, sizeof( streams[i] ), &streams[i] );
        test_error( error, "Unable to set kernel arguments" );
    }

    /* Now try running the kernel */
    threads[0] = threads[1] = 16;
    error = clEnqueueNDRangeKernel( queue, kernel, 2, NULL, threads, NULL, 0, NULL, &event );
    test_error( error, "clEnqueueNDRangeKernel failed.");

    // Verify that the event does not return an error from the execution
    error = clWaitForEvents(1, &event);
    test_error( error, "clWaitForEvent failed");
    error = clGetEventInfo(event, CL_EVENT_COMMAND_EXECUTION_STATUS, sizeof(event_status), &event_status, NULL);
    test_error( error, "clGetEventInfo for CL_EVENT_COMMAND_EXECUTION_STATUS failed");
    clReleaseEvent(event);
    if (event_status < 0)
        test_error(error, "Kernel execution event returned error");

    /* All done */
    delete[] streams;
    return 0;
}

int test_min_max_mem_alloc_size(cl_device_id deviceID, cl_context context, cl_command_queue queue, int num_elements)
{
    int error;
    cl_ulong maxAllocSize, memSize, minSizeToTry;
    clMemWrapper memHdl;

    cl_ulong requiredAllocSize;

    if (gIsEmbedded)
        requiredAllocSize = 1 * 1024 * 1024;
    else
        requiredAllocSize = 128 * 1024 * 1024;

    /* Get the max mem alloc size */
    error = clGetDeviceInfo( deviceID, CL_DEVICE_MAX_MEM_ALLOC_SIZE, sizeof( maxAllocSize ), &maxAllocSize, NULL );
    test_error( error, "Unable to get max mem alloc size from device" );

    error = clGetDeviceInfo( deviceID, CL_DEVICE_GLOBAL_MEM_SIZE, sizeof( memSize ), &memSize, NULL );
    test_error( error, "Unable to get global memory size from device" );

    if (memSize > (cl_ulong)SIZE_MAX) {
      memSize = (cl_ulong)SIZE_MAX;
    }

    if( maxAllocSize < requiredAllocSize)
    {
        log_error( "ERROR: Reported max allocation size is less than required %lldMB! (%llu or %lluMB, from a total mem size of %lldMB)\n", (requiredAllocSize / 1024) / 1024, maxAllocSize, (maxAllocSize / 1024)/1024, (memSize / 1024)/1024 );
        return -1;
    }

    requiredAllocSize = ((memSize / 4) > (1024 * 1024 * 1024)) ? 1024 * 1024 * 1024 : memSize / 4;

    if (gIsEmbedded)
        requiredAllocSize = (requiredAllocSize < 1 * 1024 * 1024) ? 1 * 1024 * 1024 : requiredAllocSize;
    else
    requiredAllocSize = (requiredAllocSize < 128 * 1024 * 1024) ? 128 * 1024 * 1024 : requiredAllocSize;

    if( maxAllocSize < requiredAllocSize )
    {
        log_error( "ERROR: Reported max allocation size is less than required of total memory! (%llu or %lluMB, from a total mem size of %lluMB)\n", maxAllocSize, (maxAllocSize / 1024)/1024, (requiredAllocSize / 1024)/1024 );
        return -1;
    }

    log_info("Reported max allocation size of %lld bytes (%gMB) and global mem size of %lld bytes (%gMB).\n",
             maxAllocSize, maxAllocSize/(1024.0*1024.0), requiredAllocSize, requiredAllocSize/(1024.0*1024.0));

    if ( memSize < maxAllocSize ) {
        log_info("Global memory size is less than max allocation size, using that.\n");
        maxAllocSize = memSize;
    }

    minSizeToTry = maxAllocSize/16;
    while (maxAllocSize > (maxAllocSize/4)) {

        log_info("Trying to create a buffer of size of %lld bytes (%gMB).\n", maxAllocSize, (double)maxAllocSize/(1024.0*1024.0));
        memHdl = clCreateBuffer( context, CL_MEM_READ_ONLY, (size_t)maxAllocSize, NULL, &error );
        if (error == CL_MEM_OBJECT_ALLOCATION_FAILURE || error == CL_OUT_OF_RESOURCES || error == CL_OUT_OF_HOST_MEMORY) {
            log_info("\tAllocation failed at size of %lld bytes (%gMB).\n", maxAllocSize, (double)maxAllocSize/(1024.0*1024.0));
            maxAllocSize -= minSizeToTry;
            continue;
        }
        test_error( error, "clCreateBuffer failed for maximum sized buffer.");
        return 0;
    }
    log_error("Failed to allocate even %lld bytes (%gMB).\n", maxAllocSize, (double)maxAllocSize/(1024.0*1024.0));
    return -1;
}

int test_min_max_image_2d_width(cl_device_id deviceID, cl_context context, cl_command_queue queue, int num_elements)
{
    int error;
    size_t maxDimension;
    clMemWrapper streams[1];
    cl_image_format image_format_desc;
    cl_ulong maxAllocSize;
    cl_uint minRequiredDimension;
    size_t length;


    PASSIVE_REQUIRE_IMAGE_SUPPORT( deviceID )

    auto version = get_device_cl_version(deviceID);
    if (version == Version(1, 0))
    {
        minRequiredDimension = gIsEmbedded ? 2048 : 4096;
    }
    else
    {
        minRequiredDimension = gIsEmbedded ? 2048 : 8192;
    }


    /* Just get any ol format to test with */
    error = get_8_bit_image_format( context, CL_MEM_OBJECT_IMAGE2D, CL_MEM_READ_WRITE, 0, &image_format_desc );
    test_error( error, "Unable to obtain suitable image format to test with!" );

    /* Get the max 2d image width */
    error = clGetDeviceInfo( deviceID, CL_DEVICE_IMAGE2D_MAX_WIDTH, sizeof( maxDimension ), &maxDimension, NULL );
    test_error( error, "Unable to get max image 2d width from device" );

    if( maxDimension < minRequiredDimension )
    {
        log_error( "ERROR: Reported max image 2d width is less than required! (%d)\n", (int)maxDimension );
        return -1;
    }
    log_info("Max reported width is %ld.\n", maxDimension);

    /* Verify we can use the format */
    image_format_desc.image_channel_data_type = CL_UNORM_INT8;
    image_format_desc.image_channel_order = CL_RGBA;
    if (!is_image_format_supported( context, CL_MEM_READ_ONLY, CL_MEM_OBJECT_IMAGE2D, &image_format_desc)) {
        log_error("CL_UNORM_INT8 CL_RGBA not supported. Can not test.");
        return -1;
    }

    /* Verify that we can actually allocate an image that large */
    error = clGetDeviceInfo( deviceID, CL_DEVICE_MAX_MEM_ALLOC_SIZE, sizeof ( maxAllocSize ), &maxAllocSize, NULL );
    test_error( error, "Unable to get CL_DEVICE_MAX_MEM_ALLOC_SIZE." );
    if ( (cl_ulong)maxDimension*1*4 > maxAllocSize ) {
        log_error("Can not allocate a large enough image (min size: %lld bytes, max allowed: %lld bytes) to test.\n",
                  (cl_ulong)maxDimension*1*4, maxAllocSize);
        return -1;
    }

    log_info("Attempting to create an image of size %d x 1 = %gMB.\n", (int)maxDimension, ((float)maxDimension*4/1024.0/1024.0));

    /* Try to allocate a very big image */
    streams[0] = create_image_2d( context, CL_MEM_READ_ONLY, &image_format_desc, maxDimension, 1, 0, NULL, &error );
    if( ( streams[0] == NULL ) || ( error != CL_SUCCESS ))
    {
        print_error( error, "Image 2D creation failed for maximum width" );
        return -1;
    }

    return 0;
}

int test_min_max_image_2d_height(cl_device_id deviceID, cl_context context, cl_command_queue queue, int num_elements)
{
    int error;
    size_t maxDimension;
    clMemWrapper streams[1];
    cl_image_format image_format_desc;
    cl_ulong maxAllocSize;
    cl_uint minRequiredDimension;
    size_t length;

    PASSIVE_REQUIRE_IMAGE_SUPPORT( deviceID )

    auto version = get_device_cl_version(deviceID);
    if (version == Version(1, 0))
    {
        minRequiredDimension = gIsEmbedded ? 2048 : 4096;
    }
    else
    {
        minRequiredDimension = gIsEmbedded ? 2048 : 8192;
    }

    /* Just get any ol format to test with */
    error = get_8_bit_image_format( context, CL_MEM_OBJECT_IMAGE2D, CL_MEM_READ_WRITE, 0, &image_format_desc );
    test_error( error, "Unable to obtain suitable image format to test with!" );

    /* Get the max 2d image width */
    error = clGetDeviceInfo( deviceID, CL_DEVICE_IMAGE2D_MAX_HEIGHT, sizeof( maxDimension ), &maxDimension, NULL );
    test_error( error, "Unable to get max image 2d height from device" );

    if( maxDimension < minRequiredDimension )
    {
        log_error( "ERROR: Reported max image 2d height is less than required! (%d)\n", (int)maxDimension );
        return -1;
    }
    log_info("Max reported height is %ld.\n", maxDimension);

    /* Verify we can use the format */
    image_format_desc.image_channel_data_type = CL_UNORM_INT8;
    image_format_desc.image_channel_order = CL_RGBA;
    if (!is_image_format_supported( context, CL_MEM_READ_ONLY, CL_MEM_OBJECT_IMAGE2D, &image_format_desc)) {
        log_error("CL_UNORM_INT8 CL_RGBA not supported. Can not test.");
        return -1;
    }

    /* Verify that we can actually allocate an image that large */
    error = clGetDeviceInfo( deviceID, CL_DEVICE_MAX_MEM_ALLOC_SIZE, sizeof ( maxAllocSize ), &maxAllocSize, NULL );
    test_error( error, "Unable to get CL_DEVICE_MAX_MEM_ALLOC_SIZE." );
    if ( (cl_ulong)maxDimension*1*4 > maxAllocSize ) {
        log_error("Can not allocate a large enough image (min size: %lld bytes, max allowed: %lld bytes) to test.\n",
                  (cl_ulong)maxDimension*1*4, maxAllocSize);
        return -1;
    }

    log_info("Attempting to create an image of size 1 x %d = %gMB.\n", (int)maxDimension, ((float)maxDimension*4/1024.0/1024.0));

    /* Try to allocate a very big image */
    streams[0] = create_image_2d( context, CL_MEM_READ_ONLY, &image_format_desc, 1, maxDimension, 0, NULL, &error );
    if( ( streams[0] == NULL ) || ( error != CL_SUCCESS ))
    {
        print_error( error, "Image 2D creation failed for maximum height" );
        return -1;
    }

    return 0;
}

int test_min_max_image_3d_width(cl_device_id deviceID, cl_context context, cl_command_queue queue, int num_elements)
{
    int error;
    size_t maxDimension;
    clMemWrapper streams[1];
    cl_image_format    image_format_desc;
    cl_ulong maxAllocSize;


    PASSIVE_REQUIRE_3D_IMAGE_SUPPORT( deviceID )

    /* Just get any ol format to test with */
    error = get_8_bit_image_format(context, CL_MEM_OBJECT_IMAGE3D,
                                   CL_MEM_READ_ONLY, 0, &image_format_desc);
    test_error( error, "Unable to obtain suitable image format to test with!" );

    /* Get the max 2d image width */
    error = clGetDeviceInfo( deviceID, CL_DEVICE_IMAGE3D_MAX_WIDTH, sizeof( maxDimension ), &maxDimension, NULL );
    test_error( error, "Unable to get max image 3d width from device" );

    if( maxDimension < 2048 )
    {
        log_error( "ERROR: Reported max image 3d width is less than required! (%d)\n", (int)maxDimension );
        return -1;
    }
    log_info("Max reported width is %ld.\n", maxDimension);

    /* Verify we can use the format */
    image_format_desc.image_channel_data_type = CL_UNORM_INT8;
    image_format_desc.image_channel_order = CL_RGBA;
    if (!is_image_format_supported( context, CL_MEM_READ_ONLY, CL_MEM_OBJECT_IMAGE3D, &image_format_desc)) {
        log_error("CL_UNORM_INT8 CL_RGBA not supported. Can not test.");
        return -1;
    }

    /* Verify that we can actually allocate an image that large */
    error = clGetDeviceInfo( deviceID, CL_DEVICE_MAX_MEM_ALLOC_SIZE, sizeof ( maxAllocSize ), &maxAllocSize, NULL );
    test_error( error, "Unable to get CL_DEVICE_MAX_MEM_ALLOC_SIZE." );
    if ( (cl_ulong)maxDimension*2*4 > maxAllocSize ) {
        log_error("Can not allocate a large enough image (min size: %lld bytes, max allowed: %lld bytes) to test.\n",
                  (cl_ulong)maxDimension*2*4, maxAllocSize);
        return -1;
    }

    log_info("Attempting to create an image of size %d x 1 x 2 = %gMB.\n", (int)maxDimension, (2*(float)maxDimension*4/1024.0/1024.0));

    /* Try to allocate a very big image */
    streams[0] = create_image_3d( context, CL_MEM_READ_ONLY, &image_format_desc, maxDimension, 1, 2, 0, 0, NULL, &error );
    if( ( streams[0] == NULL ) || ( error != CL_SUCCESS ))
    {
        print_error( error, "Image 3D creation failed for maximum width" );
        return -1;
    }

    return 0;
}

int test_min_max_image_3d_height(cl_device_id deviceID, cl_context context, cl_command_queue queue, int num_elements)
{
    int error;
    size_t maxDimension;
    clMemWrapper streams[1];
    cl_image_format    image_format_desc;
    cl_ulong maxAllocSize;


    PASSIVE_REQUIRE_3D_IMAGE_SUPPORT( deviceID )

    /* Just get any ol format to test with */
    error = get_8_bit_image_format(context, CL_MEM_OBJECT_IMAGE3D,
                                   CL_MEM_READ_ONLY, 0, &image_format_desc);
    test_error( error, "Unable to obtain suitable image format to test with!" );

    /* Get the max 2d image width */
    error = clGetDeviceInfo( deviceID, CL_DEVICE_IMAGE3D_MAX_HEIGHT, sizeof( maxDimension ), &maxDimension, NULL );
    test_error( error, "Unable to get max image 3d height from device" );

    if( maxDimension < 2048 )
    {
        log_error( "ERROR: Reported max image 3d height is less than required! (%d)\n", (int)maxDimension );
        return -1;
    }
    log_info("Max reported height is %ld.\n", maxDimension);

    /* Verify we can use the format */
    image_format_desc.image_channel_data_type = CL_UNORM_INT8;
    image_format_desc.image_channel_order = CL_RGBA;
    if (!is_image_format_supported( context, CL_MEM_READ_ONLY, CL_MEM_OBJECT_IMAGE3D, &image_format_desc)) {
        log_error("CL_UNORM_INT8 CL_RGBA not supported. Can not test.");
        return -1;
    }

    /* Verify that we can actually allocate an image that large */
    error = clGetDeviceInfo( deviceID, CL_DEVICE_MAX_MEM_ALLOC_SIZE, sizeof ( maxAllocSize ), &maxAllocSize, NULL );
    test_error( error, "Unable to get CL_DEVICE_MAX_MEM_ALLOC_SIZE." );
    if ( (cl_ulong)maxDimension*2*4 > maxAllocSize ) {
        log_error("Can not allocate a large enough image (min size: %lld bytes, max allowed: %lld bytes) to test.\n",
                  (cl_ulong)maxDimension*2*4, maxAllocSize);
        return -1;
    }

    log_info("Attempting to create an image of size 1 x %d x 2 = %gMB.\n", (int)maxDimension, (2*(float)maxDimension*4/1024.0/1024.0));

    /* Try to allocate a very big image */
    streams[0] = create_image_3d( context, CL_MEM_READ_ONLY, &image_format_desc, 1, maxDimension, 2, 0, 0, NULL, &error );
    if( ( streams[0] == NULL ) || ( error != CL_SUCCESS ))
    {
        print_error( error, "Image 3D creation failed for maximum height" );
        return -1;
    }

    return 0;
}


int test_min_max_image_3d_depth(cl_device_id deviceID, cl_context context, cl_command_queue queue, int num_elements)
{
    int error;
    size_t maxDimension;
    clMemWrapper streams[1];
    cl_image_format    image_format_desc;
    cl_ulong maxAllocSize;


    PASSIVE_REQUIRE_3D_IMAGE_SUPPORT( deviceID )

    /* Just get any ol format to test with */
    error = get_8_bit_image_format(context, CL_MEM_OBJECT_IMAGE3D,
                                   CL_MEM_READ_ONLY, 0, &image_format_desc);
    test_error( error, "Unable to obtain suitable image format to test with!" );

    /* Get the max 2d image width */
    error = clGetDeviceInfo( deviceID, CL_DEVICE_IMAGE3D_MAX_DEPTH, sizeof( maxDimension ), &maxDimension, NULL );
    test_error( error, "Unable to get max image 3d depth from device" );

    if( maxDimension < 2048 )
    {
        log_error( "ERROR: Reported max image 3d depth is less than required! (%d)\n", (int)maxDimension );
        return -1;
    }
    log_info("Max reported depth is %ld.\n", maxDimension);

    /* Verify we can use the format */
    image_format_desc.image_channel_data_type = CL_UNORM_INT8;
    image_format_desc.image_channel_order = CL_RGBA;
    if (!is_image_format_supported( context, CL_MEM_READ_ONLY, CL_MEM_OBJECT_IMAGE3D, &image_format_desc)) {
        log_error("CL_UNORM_INT8 CL_RGBA not supported. Can not test.");
        return -1;
    }

    /* Verify that we can actually allocate an image that large */
    error = clGetDeviceInfo( deviceID, CL_DEVICE_MAX_MEM_ALLOC_SIZE, sizeof ( maxAllocSize ), &maxAllocSize, NULL );
    test_error( error, "Unable to get CL_DEVICE_MAX_MEM_ALLOC_SIZE." );
    if ( (cl_ulong)maxDimension*1*4 > maxAllocSize ) {
        log_error("Can not allocate a large enough image (min size: %lld bytes, max allowed: %lld bytes) to test.\n",
                  (cl_ulong)maxDimension*1*4, maxAllocSize);
        return -1;
    }

    log_info("Attempting to create an image of size 1 x 1 x %d = %gMB.\n", (int)maxDimension, ((float)maxDimension*4/1024.0/1024.0));

    /* Try to allocate a very big image */
    streams[0] = create_image_3d( context, CL_MEM_READ_ONLY, &image_format_desc, 1, 1, maxDimension, 0, 0, NULL, &error );
    if( ( streams[0] == NULL ) || ( error != CL_SUCCESS ))
    {
        print_error( error, "Image 3D creation failed for maximum depth" );
        return -1;
    }

    return 0;
}

int test_min_max_image_array_size(cl_device_id deviceID, cl_context context, cl_command_queue queue, int num_elements)
{
    int error;
    size_t maxDimension;
    clMemWrapper streams[1];
    cl_image_format    image_format_desc;
    cl_ulong maxAllocSize;
    size_t minRequiredDimension = gIsEmbedded ? 256 : 2048;

    PASSIVE_REQUIRE_IMAGE_SUPPORT( deviceID );

    /* Just get any ol format to test with */
    error = get_8_bit_image_format( context, CL_MEM_OBJECT_IMAGE2D_ARRAY, CL_MEM_READ_WRITE, 0, &image_format_desc );
    test_error( error, "Unable to obtain suitable image format to test with!" );

    /* Get the max image array width */
    error = clGetDeviceInfo( deviceID, CL_DEVICE_IMAGE_MAX_ARRAY_SIZE, sizeof( maxDimension ), &maxDimension, NULL );
    test_error( error, "Unable to get max image array size from device" );

    if( maxDimension < minRequiredDimension )
    {
        log_error( "ERROR: Reported max image array size is less than required! (%d)\n", (int)maxDimension );
        return -1;
    }
    log_info("Max reported image array size is %ld.\n", maxDimension);

    /* Verify we can use the format */
    image_format_desc.image_channel_data_type = CL_UNORM_INT8;
    image_format_desc.image_channel_order = CL_RGBA;
    if (!is_image_format_supported( context, CL_MEM_READ_ONLY, CL_MEM_OBJECT_IMAGE2D_ARRAY, &image_format_desc)) {
        log_error("CL_UNORM_INT8 CL_RGBA not supported. Can not test.");
        return -1;
    }

    /* Verify that we can actually allocate an image that large */
    error = clGetDeviceInfo( deviceID, CL_DEVICE_MAX_MEM_ALLOC_SIZE, sizeof ( maxAllocSize ), &maxAllocSize, NULL );
    test_error( error, "Unable to get CL_DEVICE_MAX_MEM_ALLOC_SIZE." );
    if ( (cl_ulong)maxDimension*1*4 > maxAllocSize ) {
        log_error("Can not allocate a large enough image (min size: %lld bytes, max allowed: %lld bytes) to test.\n",
                  (cl_ulong)maxDimension*1*4, maxAllocSize);
        return -1;
    }

    log_info("Attempting to create an image of size 1 x 1 x %d = %gMB.\n", (int)maxDimension, ((float)maxDimension*4/1024.0/1024.0));

    /* Try to allocate a very big image */
    streams[0] = create_image_2d_array( context, CL_MEM_READ_ONLY, &image_format_desc, 1, 1, maxDimension, 0, 0, NULL, &error );
    if( ( streams[0] == NULL ) || ( error != CL_SUCCESS ))
    {
        print_error( error, "2D Image Array creation failed for maximum array size" );
        return -1;
    }

    return 0;
}

int test_min_max_image_buffer_size(cl_device_id deviceID, cl_context context, cl_command_queue queue, int num_elements)
{
    int error;
    size_t maxDimensionPixels;
    clMemWrapper streams[2];
    cl_image_format image_format_desc = {0};
    cl_ulong maxAllocSize;
    size_t minRequiredDimension = gIsEmbedded ? 2048 : 65536;
    unsigned int i = 0;
    size_t pixelBytes = 0;

    PASSIVE_REQUIRE_IMAGE_SUPPORT( deviceID );

    /* Get the max memory allocation size */
    error = clGetDeviceInfo( deviceID, CL_DEVICE_MAX_MEM_ALLOC_SIZE, sizeof ( maxAllocSize ), &maxAllocSize, NULL );
    test_error( error, "Unable to get CL_DEVICE_MAX_MEM_ALLOC_SIZE." );

    /* Get the max image array width */
    error = clGetDeviceInfo( deviceID, CL_DEVICE_IMAGE_MAX_BUFFER_SIZE, sizeof( maxDimensionPixels ), &maxDimensionPixels, NULL );
    test_error( error, "Unable to get max image buffer size from device" );

    if( maxDimensionPixels < minRequiredDimension )
    {
        log_error( "ERROR: Reported max image buffer size is less than required! (%d)\n", (int)maxDimensionPixels );
        return -1;
    }
    log_info("Max reported image buffer size is %ld pixels.\n", maxDimensionPixels);

    pixelBytes = maxAllocSize / maxDimensionPixels;
    if ( pixelBytes == 0 )
    {
        log_error( "Value of CL_DEVICE_IMAGE_MAX_BUFFER_SIZE is greater than CL_MAX_MEM_ALLOC_SIZE so there is no way to allocate image of maximum size!\n" );
        return -1;
    }

    error = -1;
    for ( i = pixelBytes; i > 0; --i )
    {
        error = get_8_bit_image_format( context, CL_MEM_OBJECT_IMAGE1D, CL_MEM_READ_ONLY, i, &image_format_desc );
        if ( error == CL_SUCCESS )
        {
            pixelBytes = i;
            break;
        }
    }
    test_error( error, "Device does not support format to be used to allocate image of CL_DEVICE_IMAGE_MAX_BUFFER_SIZE\n" );

    log_info("Attempting to create an 1D image with channel order %s from buffer of size %d = %gMB.\n",
        GetChannelOrderName( image_format_desc.image_channel_order ), (int)maxDimensionPixels, ((float)maxDimensionPixels*pixelBytes/1024.0/1024.0));

    /* Try to allocate a buffer */
    streams[0] = clCreateBuffer( context, CL_MEM_READ_ONLY, maxDimensionPixels*pixelBytes, NULL, &error );
    if( ( streams[0] == NULL ) || ( error != CL_SUCCESS ))
    {
        print_error( error, "Buffer creation failed for maximum image buffer size" );
        return -1;
    }

    /* Try to allocate a 1D image array from buffer */
    streams[1] = create_image_1d( context, CL_MEM_READ_ONLY, &image_format_desc, maxDimensionPixels, 0, NULL, streams[0], &error );
    if( ( streams[0] == NULL ) || ( error != CL_SUCCESS ))
    {
        print_error( error, "1D Image from buffer creation failed for maximum image buffer size" );
        return -1;
    }

    return 0;
}



int test_min_max_parameter_size(cl_device_id deviceID, cl_context context, cl_command_queue queue, int num_elements)
{
    int error, retVal, i;
    size_t maxSize;
    char *programSrc;
    char *ptr;
    size_t numberExpected;
    long numberOfIntParametersToTry;
    char *argumentLine, *codeLines;
    void *data;
    cl_long long_result, expectedResult;
    cl_int int_result;
    size_t decrement;
    cl_event event;
    cl_int event_status;
    bool embeddedNoLong = gIsEmbedded && !gHasLong;


    /* Get the max param size */
    error = clGetDeviceInfo( deviceID, CL_DEVICE_MAX_PARAMETER_SIZE, sizeof( maxSize ), &maxSize, NULL );
    test_error( error, "Unable to get max parameter size from device" );


    if( ((!gIsEmbedded) && (maxSize < 1024)) || ((gIsEmbedded) && (maxSize < 256)) )
    {
        log_error( "ERROR: Reported max parameter size is less than required! (%d)\n", (int)maxSize );
        return -1;
    }

    /* The embedded profile without cles_khr_int64 extension does not require
     * longs, so use ints */
    if (embeddedNoLong)
        numberOfIntParametersToTry = numberExpected = (maxSize-sizeof(cl_mem))/sizeof(cl_int);
    else
        numberOfIntParametersToTry = numberExpected = (maxSize-sizeof(cl_mem))/sizeof(cl_long);

    decrement = (size_t)(numberOfIntParametersToTry/8);
    if (decrement < 1)
        decrement = 1;
    log_info("Reported max parameter size of %d bytes.\n", (int)maxSize);

    while (numberOfIntParametersToTry > 0) {
        // These need to be inside to be deallocated automatically on each loop iteration.
        clProgramWrapper program;
        clMemWrapper mem;
        clKernelWrapper kernel;

        if (embeddedNoLong)
        {
            log_info("Trying a kernel with %ld int arguments (%ld bytes) and one cl_mem (%ld bytes) for %ld bytes total.\n",
                     numberOfIntParametersToTry, sizeof(cl_int)*numberOfIntParametersToTry, sizeof(cl_mem),
                     sizeof(cl_mem)+numberOfIntParametersToTry*sizeof(cl_int));
        }
        else
        {
            log_info("Trying a kernel with %ld long arguments (%ld bytes) and one cl_mem (%ld bytes) for %ld bytes total.\n",
                     numberOfIntParametersToTry, sizeof(cl_long)*numberOfIntParametersToTry, sizeof(cl_mem),
                     sizeof(cl_mem)+numberOfIntParametersToTry*sizeof(cl_long));
        }

        // Allocate memory for the program storage
        data = malloc(sizeof(cl_long)*numberOfIntParametersToTry);

        argumentLine = (char*)malloc(sizeof(char)*numberOfIntParametersToTry*32);
        codeLines = (char*)malloc(sizeof(char)*numberOfIntParametersToTry*32);
        programSrc = (char*)malloc(sizeof(char)*(numberOfIntParametersToTry*64+1024));
        argumentLine[0] = '\0';
        codeLines[0] = '\0';
        programSrc[0] = '\0';

        // Generate our results
        expectedResult = 0;
        for (i=0; i<(int)numberOfIntParametersToTry; i++)
            {
            if( gHasLong )
            {
                ((cl_long *)data)[i] = i;
                expectedResult += i;
            }
            else
            {
                ((cl_int *)data)[i] = i;
                expectedResult += i;
            }
        }

        // Build the program
        if( gHasLong)
            sprintf(argumentLine, "%s", "long arg0");
        else
            sprintf(argumentLine, "%s", "int arg0");

        sprintf(codeLines, "%s", "result[0] += arg0;");
        for (i=1; i<(int)numberOfIntParametersToTry; i++)
        {
            if( gHasLong)
                sprintf(argumentLine + strlen( argumentLine), ", long arg%d", i);
            else
                sprintf(argumentLine + strlen( argumentLine), ", int arg%d", i);

            sprintf(codeLines + strlen( codeLines), "\nresult[0] += arg%d;", i);
        }

        /* Create a kernel to test with */
        sprintf( programSrc, gHasLong ?  sample_large_parmam_kernel_pattern[0]:
                                        sample_large_int_parmam_kernel_pattern[0], argumentLine, codeLines);

        ptr = programSrc;
        if( create_single_kernel_helper( context, &program, &kernel, 1, (const char **)&ptr, "sample_test" ) != 0 )
        {
            log_info("Create program failed, decrementing number of parameters to try.\n");
            numberOfIntParametersToTry -= decrement;
            continue;
        }

        /* Try to set a large argument to the kernel */
        retVal = 0;

        mem = clCreateBuffer(context, CL_MEM_READ_WRITE, sizeof(cl_long), NULL,
                             &error);
        test_error(error, "clCreateBuffer failed");

        for (i=0; i<(int)numberOfIntParametersToTry; i++) {
            if(gHasLong)
                error = clSetKernelArg(kernel, i, sizeof(cl_long), &(((cl_long*)data)[i]));
            else
                error = clSetKernelArg(kernel, i, sizeof(cl_int), &(((cl_int*)data)[i]));

            if (error != CL_SUCCESS) {
                log_info( "clSetKernelArg failed (%s), decrementing number of parameters to try.\n", IGetErrorString(error));
                numberOfIntParametersToTry -= decrement;
                break;
            }
        }
        if (error != CL_SUCCESS)
            continue;


        error = clSetKernelArg(kernel, i, sizeof(cl_mem), &mem);
        if (error != CL_SUCCESS) {
            log_info( "clSetKernelArg failed (%s), decrementing number of parameters to try.\n", IGetErrorString(error));
            numberOfIntParametersToTry -= decrement;
            continue;
        }

        size_t globalDim[3]={1,1,1}, localDim[3]={1,1,1};
        error = clEnqueueNDRangeKernel(queue, kernel, 1, NULL, globalDim, localDim, 0, NULL, &event);
        if (error != CL_SUCCESS) {
            log_info( "clEnqueueNDRangeKernel failed (%s), decrementing number of parameters to try.\n", IGetErrorString(error));
            numberOfIntParametersToTry -= decrement;
            continue;
        }

        // Verify that the event does not return an error from the execution
        error = clWaitForEvents(1, &event);
        test_error( error, "clWaitForEvent failed");
        error = clGetEventInfo(event, CL_EVENT_COMMAND_EXECUTION_STATUS, sizeof(event_status), &event_status, NULL);
        test_error( error, "clGetEventInfo for CL_EVENT_COMMAND_EXECUTION_STATUS failed");
        clReleaseEvent(event);
        if (event_status < 0)
            test_error(error, "Kernel execution event returned error");

        if(gHasLong)
            error = clEnqueueReadBuffer(queue, mem, CL_TRUE, 0, sizeof(cl_long), &long_result, 0, NULL, NULL);
        else
            error = clEnqueueReadBuffer(queue, mem, CL_TRUE, 0, sizeof(cl_int), &int_result, 0, NULL, NULL);

        test_error(error, "clEnqueueReadBuffer failed")

        free(data);
        free(argumentLine);
        free(codeLines);
        free(programSrc);

        if(gHasLong)
        {
            if (long_result != expectedResult) {
                log_error("Expected result (%lld) does not equal actual result (%lld).\n", expectedResult, long_result);
                numberOfIntParametersToTry -= decrement;
                continue;
            } else {
                log_info("Results verified at %ld bytes of arguments.\n", sizeof(cl_mem)+numberOfIntParametersToTry*sizeof(cl_long));
                break;
            }
        }
        else
        {
            if (int_result != expectedResult) {
                log_error("Expected result (%lld) does not equal actual result (%d).\n", expectedResult, int_result);
                numberOfIntParametersToTry -= decrement;
                continue;
            } else {
                log_info("Results verified at %ld bytes of arguments.\n", sizeof(cl_mem)+numberOfIntParametersToTry*sizeof(cl_int));
                break;
            }
        }
    }

    if (numberOfIntParametersToTry == (long)numberExpected)
        return 0;
    return -1;
}

int test_min_max_samplers(cl_device_id deviceID, cl_context context, cl_command_queue queue, int num_elements)
{
    int error;
    cl_uint maxSamplers, i;
    clProgramWrapper program;
    clKernelWrapper kernel;
    char *programSrc, samplerLine[1024];
    size_t maxParameterSize;
    cl_event event;
    cl_int event_status;
    cl_uint minRequiredSamplers = gIsEmbedded ? 8 : 16;


    PASSIVE_REQUIRE_IMAGE_SUPPORT( deviceID )

    /* Get the max value */
    error = clGetDeviceInfo( deviceID, CL_DEVICE_MAX_SAMPLERS, sizeof( maxSamplers ), &maxSamplers, NULL );
    test_error( error, "Unable to get max sampler count from device" );

    if( maxSamplers < minRequiredSamplers )
    {
        log_error( "ERROR: Reported max sampler count is less than required! (%d)\n", (int)maxSamplers );
        return -1;
    }

    log_info("Reported max %d samplers.\n", maxSamplers);

    error = clGetDeviceInfo( deviceID, CL_DEVICE_MAX_PARAMETER_SIZE, sizeof( maxParameterSize ), &maxParameterSize, NULL );
    test_error( error, "Unable to get max parameter size from device" );

    // Subtract the size of the result
    maxParameterSize -= 2*sizeof(cl_mem);

    // Calculate the number we can use
    if (maxParameterSize/sizeof(cl_sampler) < maxSamplers) {
        log_info("WARNING: Max parameter size of %d bytes limits test to %d max sampler arguments.\n", (int)maxParameterSize, (int)(maxParameterSize/sizeof(cl_sampler)));
        maxSamplers = (unsigned int)(maxParameterSize/sizeof(cl_sampler));
    }

    /* Create a kernel to test with */
    programSrc = (char *)malloc( ( strlen( sample_sampler_kernel_pattern[ 1 ] ) + 8 ) * ( maxSamplers ) +
                                strlen( sample_sampler_kernel_pattern[ 0 ] ) + strlen( sample_sampler_kernel_pattern[ 2 ] ) +
                                ( strlen( sample_sampler_kernel_pattern[ 3 ] ) + 8 ) * maxSamplers +
                                strlen( sample_sampler_kernel_pattern[ 4 ] ) );
    strcpy( programSrc, sample_sampler_kernel_pattern[ 0 ] );
    for( i = 0; i < maxSamplers; i++ )
    {
        sprintf( samplerLine, sample_sampler_kernel_pattern[ 1 ], i );
        strcat( programSrc, samplerLine );
    }
    strcat( programSrc, sample_sampler_kernel_pattern[ 2 ] );
    for( i = 0; i < maxSamplers; i++ )
    {
        sprintf( samplerLine, sample_sampler_kernel_pattern[ 3 ], i );
        strcat( programSrc, samplerLine );
    }
    strcat( programSrc, sample_sampler_kernel_pattern[ 4 ] );


    error = create_single_kernel_helper(context, &program, &kernel, 1, (const char **)&programSrc, "sample_test");
    test_error( error, "Failed to create the program and kernel.");

    // We have to set up some fake parameters so it'll work
    clSamplerWrapper *samplers = new clSamplerWrapper[maxSamplers];

    cl_image_format format = { CL_RGBA, CL_SIGNED_INT8 };

    clMemWrapper image = create_image_2d( context, CL_MEM_READ_WRITE, &format, 16, 16, 0, NULL, &error );
    test_error( error, "Unable to create a test image" );

    clMemWrapper stream =
        clCreateBuffer(context, CL_MEM_READ_WRITE, 16, NULL, &error);
    test_error( error, "Unable to create test buffer" );

    error = clSetKernelArg( kernel, 0, sizeof( cl_mem ), &image );
    error |= clSetKernelArg( kernel, 1, sizeof( cl_mem ), &stream );
    test_error( error, "Unable to set kernel arguments" );
    for( i = 0; i < maxSamplers; i++ )
    {
        samplers[ i ] = clCreateSampler( context, CL_FALSE, CL_ADDRESS_NONE, CL_FILTER_NEAREST, &error );
        test_error( error, "Unable to create sampler" );

        error = clSetKernelArg( kernel, 2 + i, sizeof( cl_sampler ), &samplers[ i ] );
        test_error( error, "Unable to set sampler argument" );
    }

    size_t globalDim[3]={1,1,1}, localDim[3]={1,1,1};
    error = clEnqueueNDRangeKernel(queue, kernel, 1, NULL, globalDim, localDim, 0, NULL, &event);
    test_error(error, "clEnqueueNDRangeKernel failed with maximum number of samplers.");

    // Verify that the event does not return an error from the execution
    error = clWaitForEvents(1, &event);
    test_error( error, "clWaitForEvent failed");
    error = clGetEventInfo(event, CL_EVENT_COMMAND_EXECUTION_STATUS, sizeof(event_status), &event_status, NULL);
    test_error( error, "clGetEventInfo for CL_EVENT_COMMAND_EXECUTION_STATUS failed");
    clReleaseEvent(event);
    if (event_status < 0)
        test_error(error, "Kernel execution event returned error");

    free( programSrc );
    delete[] samplers;
    return 0;
}

#define PASSING_FRACTION 4
int test_min_max_constant_buffer_size(cl_device_id deviceID, cl_context context, cl_command_queue queue, int num_elements)
{
    int error;
    clProgramWrapper program;
    clKernelWrapper kernel;
    size_t    threads[1], localThreads[1];
    cl_int *constantData, *resultData;
    cl_ulong maxSize, stepSize, currentSize, maxGlobalSize, maxAllocSize;
    int i;
    cl_event event;
    cl_int event_status;
    MTdata d;

    /* Verify our test buffer won't be bigger than allowed */
    error = clGetDeviceInfo( deviceID, CL_DEVICE_MAX_CONSTANT_BUFFER_SIZE, sizeof( maxSize ), &maxSize, 0 );
    test_error( error, "Unable to get max constant buffer size" );

    if( ( 0 == gIsEmbedded && maxSize < 64L * 1024L ) || maxSize <  1L * 1024L )
    {
        log_error( "ERROR: Reported max constant buffer size less than required by OpenCL 1.0 (reported %d KB)\n", (int)( maxSize / 1024L ) );
        return -1;
    }

    log_info("Reported max constant buffer size of %lld bytes.\n", maxSize);

    // Limit test buffer size to 1/8 of CL_DEVICE_GLOBAL_MEM_SIZE
    error = clGetDeviceInfo(deviceID, CL_DEVICE_GLOBAL_MEM_SIZE, sizeof(maxGlobalSize), &maxGlobalSize, 0);
    test_error(error, "Unable to get CL_DEVICE_GLOBAL_MEM_SIZE");

    if (maxSize > maxGlobalSize / 8)
        maxSize = maxGlobalSize / 8;

    error = clGetDeviceInfo(deviceID, CL_DEVICE_MAX_MEM_ALLOC_SIZE , sizeof(maxAllocSize), &maxAllocSize, 0);
    test_error(error, "Unable to get CL_DEVICE_MAX_MEM_ALLOC_SIZE ");
    
    if (maxSize > maxAllocSize)
        maxSize = maxAllocSize;
    
    /* Create a kernel to test with */
    if( create_single_kernel_helper( context, &program, &kernel, 1, sample_const_arg_kernel, "sample_test" ) != 0 )
    {
        return -1;
    }

    /* Try the returned max size and decrease it until we get one that works. */
    stepSize = maxSize/16;
    currentSize = maxSize;
    int allocPassed = 0;
    d = init_genrand( gRandomSeed );
    while (!allocPassed && currentSize >= maxSize/PASSING_FRACTION) {
        log_info("Attempting to allocate constant buffer of size %lld bytes\n", maxSize);

        /* Create some I/O streams */
        size_t sizeToAllocate = ((size_t)currentSize/sizeof( cl_int ))*sizeof(cl_int);
        size_t numberOfInts = sizeToAllocate/sizeof(cl_int);
        constantData = (cl_int *)malloc( sizeToAllocate);
        if (constantData == NULL)
        {
            log_error("Failed to allocate memory for constantData!\n");
            free_mtdata(d);
            return EXIT_FAILURE;
        }

        for(i=0; i<(int)(numberOfInts); i++)
            constantData[i] = (int)genrand_int32(d);

        clMemWrapper streams[3];
        streams[0] = clCreateBuffer(context, CL_MEM_COPY_HOST_PTR,
                                    sizeToAllocate, constantData, &error);
        test_error( error, "Creating test array failed" );
        streams[1] = clCreateBuffer(context, CL_MEM_READ_WRITE, sizeToAllocate,
                                    NULL, &error);
        test_error( error, "Creating test array failed" );


        /* Set the arguments */
        error = clSetKernelArg(kernel, 0, sizeof( streams[0] ), &streams[0]);
        test_error( error, "Unable to set indexed kernel arguments" );
        error = clSetKernelArg(kernel, 1, sizeof( streams[1] ), &streams[1]);
        test_error( error, "Unable to set indexed kernel arguments" );


        /* Test running the kernel and verifying it */
        threads[0] = numberOfInts;
        localThreads[0] = 1;
        log_info("Filling constant buffer with %d cl_ints (%d bytes).\n", (int)threads[0], (int)(threads[0]*sizeof(cl_int)));

        error = clEnqueueNDRangeKernel( queue, kernel, 1, NULL, threads, localThreads, 0, NULL, &event );
        /* If we failed due to a resource issue, reduce the size and try again. */
        if ((error == CL_OUT_OF_RESOURCES) || (error == CL_MEM_OBJECT_ALLOCATION_FAILURE) || (error == CL_OUT_OF_HOST_MEMORY)) {
            log_info("Kernel enqueue failed at size %lld, trying at a reduced size.\n", currentSize);
            currentSize -= stepSize;
            free(constantData);
            continue;
        }
        test_error( error, "clEnqueueNDRangeKernel with maximum constant buffer size failed.");

        // Verify that the event does not return an error from the execution
        error = clWaitForEvents(1, &event);
        test_error( error, "clWaitForEvent failed");
        error = clGetEventInfo(event, CL_EVENT_COMMAND_EXECUTION_STATUS, sizeof(event_status), &event_status, NULL);
        test_error( error, "clGetEventInfo for CL_EVENT_COMMAND_EXECUTION_STATUS failed");
        clReleaseEvent(event);
        if (event_status < 0) {
            if ((event_status == CL_OUT_OF_RESOURCES) || (event_status == CL_MEM_OBJECT_ALLOCATION_FAILURE) || (event_status == CL_OUT_OF_HOST_MEMORY)) {
                log_info("Kernel event indicates failure at size %lld, trying at a reduced size.\n", currentSize);
                currentSize -= stepSize;
                free(constantData);
                continue;
            } else {
                test_error(error, "Kernel execution event returned error");
            }
        }

        /* Otherwise we did not fail due to resource issues. */
        allocPassed = 1;

        resultData = (cl_int *)malloc(sizeToAllocate);
        if (resultData == NULL)
        {
            log_error("Failed to allocate memory for resultData!\n");
            free(constantData);
            free_mtdata(d);
            return EXIT_FAILURE;
        }

        error = clEnqueueReadBuffer(queue, streams[1], CL_TRUE, 0, sizeToAllocate, resultData, 0, NULL, NULL);
        test_error( error, "clEnqueueReadBuffer failed");

        for(i=0; i<(int)(numberOfInts); i++)
            if (constantData[i] != resultData[i]) {
                log_error("Data failed to verify: constantData[%d]=%d != resultData[%d]=%d\n",
                          i, constantData[i], i, resultData[i]);
                free( constantData );
                free(resultData);
                free_mtdata(d);   d = NULL;
                return -1;
            }

        free( constantData );
        free(resultData);
    }
    free_mtdata(d);   d = NULL;

    if (allocPassed) {
        if (currentSize < maxSize/PASSING_FRACTION) {
            log_error("Failed to allocate at least 1/8 of the reported constant size.\n");
            return -1;
        } else if (currentSize != maxSize) {
            log_info("Passed at reduced size. (%lld of %lld bytes)\n", currentSize, maxSize);
            return 0;
        }
        return 0;
    }
    return -1;
}

int test_min_max_constant_args(cl_device_id deviceID, cl_context context, cl_command_queue queue, int num_elements)
{
    int error;
    clProgramWrapper program;
    clKernelWrapper kernel;
    clMemWrapper    *streams;
    size_t    threads[1], localThreads[1];
    cl_uint i, maxArgs;
    cl_ulong maxSize;
    cl_ulong maxParameterSize;
    size_t individualBufferSize;
    char *programSrc, *constArgs, *str2;
    char str[512];
    const char *ptr;
    cl_event event;
    cl_int event_status;


    /* Verify our test buffer won't be bigger than allowed */
    error = clGetDeviceInfo( deviceID, CL_DEVICE_MAX_CONSTANT_ARGS, sizeof( maxArgs ), &maxArgs, 0 );
    test_error( error, "Unable to get max constant arg count" );

    error = clGetDeviceInfo( deviceID, CL_DEVICE_MAX_PARAMETER_SIZE, sizeof( maxParameterSize ), &maxParameterSize, NULL );
    test_error( error, "Unable to get max parameter size from device" );

    // Subtract the size of the result
    maxParameterSize -= sizeof(cl_mem);

    // Calculate the number we can use
    if (maxParameterSize/sizeof(cl_mem) < maxArgs) {
        log_info("WARNING: Max parameter size of %d bytes limits test to %d max image arguments.\n", (int)maxParameterSize, (int)(maxParameterSize/sizeof(cl_mem)));
        maxArgs = (unsigned int)(maxParameterSize/sizeof(cl_mem));
    }


    if( maxArgs < (gIsEmbedded ? 4 : 8) )
    {
        log_error( "ERROR: Reported max constant arg count less than required by OpenCL 1.0 (reported %d)\n", (int)maxArgs );
        return -1;
    }

    error = clGetDeviceInfo( deviceID, CL_DEVICE_MAX_CONSTANT_BUFFER_SIZE, sizeof( maxSize ), &maxSize, 0 );
    test_error( error, "Unable to get max constant buffer size" );
    individualBufferSize = ((int)maxSize/2)/maxArgs;

    log_info("Reported max constant arg count of %d and max constant buffer size of %d. Test will attempt to allocate half of that, or %d buffers of size %d.\n",
             (int)maxArgs, (int)maxSize, (int)maxArgs, (int)individualBufferSize);

    str2 = (char*)malloc(sizeof(char)*32*(maxArgs+2));
    constArgs = (char*)malloc(sizeof(char)*32*(maxArgs+2));
    programSrc = (char*)malloc(sizeof(char)*32*2*(maxArgs+2)+1024);

    /* Create a test program */
    constArgs[0] = 0;
    str2[0] = 0;
    for( i = 0; i < maxArgs-1; i++ )
    {
        sprintf( str, ", __constant int *src%d", (int)( i + 2 ) );
        strcat( constArgs, str );
        sprintf( str2 + strlen( str2), "\tdst[tid] += src%d[tid];\n", (int)(i+2));
        if (strlen(str2) > (sizeof(char)*32*(maxArgs+2)-32) || strlen(constArgs) > (sizeof(char)*32*(maxArgs+2)-32)) {
            log_info("Limiting number of arguments tested to %d due to test program allocation size.\n", i);
            break;
        }
    }
    sprintf( programSrc, sample_const_max_arg_kernel_pattern, constArgs, str2 );

    /* Create a kernel to test with */
    ptr = programSrc;
    if( create_single_kernel_helper( context, &program, &kernel, 1, &ptr, "sample_test" ) != 0 )
    {
        return -1;
    }

    /* Create some I/O streams */
    streams = new clMemWrapper[ maxArgs + 1 ];
    for( i = 0; i < maxArgs + 1; i++ )
    {
        streams[i] = clCreateBuffer(context, CL_MEM_READ_WRITE,
                                    individualBufferSize, NULL, &error);
        test_error( error, "Creating test array failed" );
    }

    /* Set the arguments */
    for( i = 0; i < maxArgs + 1; i++ )
    {
        error = clSetKernelArg(kernel, i, sizeof( streams[i] ), &streams[i]);
        test_error( error, "Unable to set kernel argument" );
    }

    /* Test running the kernel and verifying it */
    threads[0] = (size_t)10;
    while (threads[0]*sizeof(cl_int) > individualBufferSize)
        threads[0]--;

    error = get_max_common_work_group_size( context, kernel, threads[0], &localThreads[0] );
    test_error( error, "Unable to get work group size to use" );

    error = clEnqueueNDRangeKernel( queue, kernel, 1, NULL, threads, localThreads, 0, NULL, &event );
    test_error( error, "clEnqueueNDRangeKernel failed");

    // Verify that the event does not return an error from the execution
    error = clWaitForEvents(1, &event);
    test_error( error, "clWaitForEvent failed");
    error = clGetEventInfo(event, CL_EVENT_COMMAND_EXECUTION_STATUS, sizeof(event_status), &event_status, NULL);
    test_error( error, "clGetEventInfo for CL_EVENT_COMMAND_EXECUTION_STATUS failed");
    clReleaseEvent(event);
    if (event_status < 0)
        test_error(error, "Kernel execution event returned error");

    error = clFinish(queue);
    test_error( error, "clFinish failed.");

    delete [] streams;
    free(str2);
    free(constArgs);
    free(programSrc);
    return 0;
}

int test_min_max_compute_units(cl_device_id deviceID, cl_context context, cl_command_queue queue, int num_elements)
{
    int error;
    cl_uint value;


    error = clGetDeviceInfo( deviceID, CL_DEVICE_MAX_COMPUTE_UNITS, sizeof( value ), &value, 0 );
    test_error( error, "Unable to get compute unit count" );

    if( value < 1 )
    {
        log_error( "ERROR: Reported compute unit count less than required by OpenCL 1.0 (reported %d)\n", (int)value );
        return -1;
    }

    log_info("Reported %d max compute units.\n", value);

    return 0;
}

int test_min_max_address_bits(cl_device_id deviceID, cl_context context, cl_command_queue queue, int num_elements)
{
    int error;
    cl_uint value;


    error = clGetDeviceInfo( deviceID, CL_DEVICE_ADDRESS_BITS, sizeof( value ), &value, 0 );
    test_error( error, "Unable to get address bit count" );

    if( value != 32 && value != 64 )
    {
        log_error( "ERROR: Reported address bit count not valid by OpenCL 1.0 (reported %d)\n", (int)value );
        return -1;
    }

    log_info("Reported %d device address bits.\n", value);

    return 0;
}

int test_min_max_single_fp_config(cl_device_id deviceID, cl_context context, cl_command_queue queue, int num_elements)
{
    int error;
    cl_device_fp_config value;
    char profile[128] = "";

    error = clGetDeviceInfo( deviceID, CL_DEVICE_SINGLE_FP_CONFIG, sizeof( value ), &value, 0 );
    test_error( error, "Unable to get device single fp config" );

    //Check to see if we are an embedded profile device
    if((error = clGetDeviceInfo( deviceID, CL_DEVICE_PROFILE, sizeof(profile), profile, NULL )))
    {
        log_error( "FAILURE: Unable to get CL_DEVICE_PROFILE: error %d\n", error );
        return error;
    }

    if( 0 == strcmp( profile, "EMBEDDED_PROFILE" ))
    { // embedded device

        if( 0 == (value & (CL_FP_ROUND_TO_NEAREST | CL_FP_ROUND_TO_ZERO)))
        {
            log_error( "FAILURE: embedded device supports neither CL_FP_ROUND_TO_NEAREST or CL_FP_ROUND_TO_ZERO\n" );
            return -1;
        }
    }
    else
    { // Full profile
        if( ( value & ( CL_FP_ROUND_TO_NEAREST | CL_FP_INF_NAN )) != ( CL_FP_ROUND_TO_NEAREST | CL_FP_INF_NAN ) )
        {
            log_error( "ERROR: Reported single fp config doesn't meet minimum set by OpenCL 1.0 (reported 0x%08x)\n", (int)value );
            return -1;
        }
    }
    return 0;
}

int test_min_max_double_fp_config(cl_device_id deviceID, cl_context context, cl_command_queue queue, int num_elements)
{
    int error;
    cl_device_fp_config value;

    error = clGetDeviceInfo( deviceID, CL_DEVICE_DOUBLE_FP_CONFIG, sizeof( value ), &value, 0 );
    test_error( error, "Unable to get device double fp config" );

    if (value == 0)
        return 0;

    if( ( value & (CL_FP_FMA | CL_FP_ROUND_TO_NEAREST | CL_FP_ROUND_TO_ZERO | CL_FP_ROUND_TO_INF | CL_FP_INF_NAN | CL_FP_DENORM)) != ( CL_FP_FMA | CL_FP_ROUND_TO_NEAREST | CL_FP_ROUND_TO_ZERO | CL_FP_ROUND_TO_INF | CL_FP_INF_NAN | CL_FP_DENORM) )
    {
        log_error( "ERROR: Reported double fp config doesn't meet minimum set by OpenCL 1.0 (reported 0x%08x)\n", (int)value );
        return -1;
    }
    return 0;
}

int test_min_max_local_mem_size(cl_device_id deviceID, cl_context context, cl_command_queue queue, int num_elements)
{
    int error;
    clProgramWrapper program;
    clKernelWrapper kernel;
    clMemWrapper            streams[3];
    size_t    threads[1], localThreads[1];
    cl_int *localData, *resultData;
    cl_ulong maxSize, kernelLocalUsage, min_max_local_mem_size;
    Version device_version;
    int i;
    int err = 0;
    MTdata d;

    /* Verify our test buffer won't be bigger than allowed */
    error = clGetDeviceInfo( deviceID, CL_DEVICE_LOCAL_MEM_SIZE, sizeof( maxSize ), &maxSize, 0 );
    test_error( error, "Unable to get max local buffer size" );

    try
    {
        device_version = get_device_cl_version(deviceID);
    } catch (const std::runtime_error &e)
    {
        log_error("%s", e.what());
        return -1;
    }

    if (!gIsEmbedded)
    {
        if (device_version == Version(1, 0))
            min_max_local_mem_size = 16L * 1024L;
        else
            min_max_local_mem_size = 32L * 1024L;
    }
    else
    {
        min_max_local_mem_size = 1L * 1024L;
    }

    if (maxSize < min_max_local_mem_size)
    {
        const std::string version_as_string = device_version.to_string();
        log_error("ERROR: Reported local mem size less than required by OpenCL "
                  "%s (reported %d KB)\n",
                  version_as_string.c_str(), (int)(maxSize / 1024L));
        return -1;
    }

    log_info("Reported max local buffer size for device: %lld bytes.\n", maxSize);

    /* Create a kernel to test with */
    if( create_single_kernel_helper( context, &program, &kernel, 1, sample_local_arg_kernel, "sample_test" ) != 0 )
    {
        return -1;
    }

    error = clGetKernelWorkGroupInfo(kernel, deviceID, CL_KERNEL_LOCAL_MEM_SIZE, sizeof(kernelLocalUsage), &kernelLocalUsage, NULL);
    test_error(error, "clGetKernelWorkGroupInfo for CL_KERNEL_LOCAL_MEM_SIZE failed");

    log_info("Reported local buffer usage for kernel (CL_KERNEL_LOCAL_MEM_SIZE): %lld bytes.\n", kernelLocalUsage);

    /* Create some I/O streams */
    size_t sizeToAllocate = ((size_t)(maxSize-kernelLocalUsage)/sizeof( cl_int ))*sizeof(cl_int);
    size_t numberOfInts = sizeToAllocate/sizeof(cl_int);

    log_info("Attempting to use %lld bytes of local memory.\n", (cl_ulong)sizeToAllocate);

    localData = (cl_int *)malloc( sizeToAllocate );
    d = init_genrand( gRandomSeed );
    for(i=0; i<(int)(numberOfInts); i++)
        localData[i] = (int)genrand_int32(d);
    free_mtdata(d); d = NULL;

    streams[0] = clCreateBuffer(context, CL_MEM_COPY_HOST_PTR, sizeToAllocate,
                                localData, &error);
    test_error( error, "Creating test array failed" );
    streams[1] = clCreateBuffer(context, CL_MEM_READ_WRITE, sizeToAllocate,
                                NULL, &error);
    test_error( error, "Creating test array failed" );


    /* Set the arguments */
    error = clSetKernelArg(kernel, 0, sizeToAllocate, NULL);
    test_error( error, "Unable to set indexed kernel arguments" );
    error = clSetKernelArg(kernel, 1, sizeof( streams[0] ), &streams[0]);
    test_error( error, "Unable to set indexed kernel arguments" );
    error = clSetKernelArg(kernel, 2, sizeof( streams[1] ), &streams[1]);
    test_error( error, "Unable to set indexed kernel arguments" );


    /* Test running the kernel and verifying it */
    threads[0] = numberOfInts;
    localThreads[0] = 1;
    log_info("Creating local buffer with %d cl_ints (%d bytes).\n", (int)numberOfInts, (int)sizeToAllocate);

    cl_event evt;
    cl_int   evt_err;
    error = clEnqueueNDRangeKernel( queue, kernel, 1, NULL, threads, localThreads, 0, NULL, &evt );
    test_error(error, "clEnqueueNDRangeKernel failed");

    error = clFinish(queue);
    test_error( error, "clFinish failed");

    error = clGetEventInfo(evt, CL_EVENT_COMMAND_EXECUTION_STATUS, sizeof evt_err, &evt_err, NULL);
    test_error( error, "clGetEventInfo with maximum local buffer size failed.");

    if (evt_err != CL_COMPLETE) {
        print_error(evt_err, "Kernel event returned error");
        clReleaseEvent(evt);
        return -1;
    }

    resultData = (cl_int *)malloc(sizeToAllocate);

    error = clEnqueueReadBuffer(queue, streams[1], CL_TRUE, 0, sizeToAllocate, resultData, 0, NULL, NULL);
    test_error( error, "clEnqueueReadBuffer failed");

    for(i=0; i<(int)(numberOfInts); i++)
        if (localData[i] != resultData[i]) {
            clReleaseEvent(evt);
            free( localData );
            free(resultData);
            log_error("Results failed to verify.\n");
            return -1;
        }
    clReleaseEvent(evt);
    free( localData );
    free(resultData);

    return err;
}

int test_min_max_kernel_preferred_work_group_size_multiple(cl_device_id deviceID, cl_context context, cl_command_queue queue, int num_elements)
{
    int                err;
    clProgramWrapper program;
    clKernelWrapper kernel;

    size_t max_local_workgroup_size[3];
    size_t max_workgroup_size = 0, preferred_workgroup_size = 0;

    err = create_single_kernel_helper(context, &program, &kernel, 1, sample_local_arg_kernel, "sample_test" );
    test_error(err, "Failed to build kernel/program.");

    err = clGetKernelWorkGroupInfo(kernel, deviceID, CL_KERNEL_WORK_GROUP_SIZE,
                                   sizeof(max_workgroup_size), &max_workgroup_size, NULL);
    test_error(err, "clGetKernelWorkgroupInfo failed.");

    err = clGetKernelWorkGroupInfo(kernel, deviceID, CL_KERNEL_PREFERRED_WORK_GROUP_SIZE_MULTIPLE,
                                   sizeof(preferred_workgroup_size), &preferred_workgroup_size, NULL);
    test_error(err, "clGetKernelWorkgroupInfo failed.");

    err = clGetDeviceInfo(deviceID, CL_DEVICE_MAX_WORK_ITEM_SIZES, sizeof(max_local_workgroup_size), max_local_workgroup_size, NULL);
    test_error(err, "clGetDeviceInfo failed for CL_DEVICE_MAX_WORK_ITEM_SIZES");

    // Since the preferred size is only a performance hint, we can only really check that we get a sane value
    // back
    log_info( "size: %ld     preferred: %ld      max: %ld\n", max_workgroup_size, preferred_workgroup_size, max_local_workgroup_size[0] );

    if( preferred_workgroup_size > max_workgroup_size )
    {
        log_error( "ERROR: Reported preferred workgroup multiple larger than max workgroup size (preferred %ld, max %ld)\n", preferred_workgroup_size, max_workgroup_size );
        return -1;
    }

    return 0;
}

int test_min_max_execution_capabilities(cl_device_id deviceID, cl_context context, cl_command_queue queue, int num_elements)
{
    int error;
    cl_device_exec_capabilities value;


    error = clGetDeviceInfo( deviceID, CL_DEVICE_EXECUTION_CAPABILITIES, sizeof( value ), &value, 0 );
    test_error( error, "Unable to get execution capabilities" );

    if( ( value & CL_EXEC_KERNEL ) != CL_EXEC_KERNEL )
    {
        log_error( "ERROR: Reported execution capabilities less than required by OpenCL 1.0 (reported 0x%08x)\n", (int)value );
        return -1;
    }
    return 0;
}

int test_min_max_queue_properties(cl_device_id deviceID, cl_context context, cl_command_queue queue, int num_elements)
{
    int error;
    cl_command_queue_properties value;


    error = clGetDeviceInfo( deviceID, CL_DEVICE_QUEUE_ON_HOST_PROPERTIES, sizeof( value ), &value, 0 );
    test_error( error, "Unable to get queue properties" );

    if( ( value & CL_QUEUE_PROFILING_ENABLE ) != CL_QUEUE_PROFILING_ENABLE )
    {
        log_error( "ERROR: Reported queue properties less than required by OpenCL 1.0 (reported 0x%08x)\n", (int)value );
        return -1;
    }
    return 0;
}

int test_min_max_device_version(cl_device_id deviceID, cl_context context, cl_command_queue queue, int num_elements)
{
    // Query for the device version.
    Version device_cl_version = get_device_cl_version(deviceID);
    log_info("Returned version %s.\n", device_cl_version.to_string().c_str());

    // Make sure 2.x devices support required extensions for 2.x
    // note: these extensions are **not** required for devices
    // supporting OpenCL-3.0
    const char *requiredExtensions2x[] = {
        "cl_khr_3d_image_writes",
        "cl_khr_image2d_from_buffer",
        "cl_khr_depth_images",
    };

    // Make sure 1.1 devices support required extensions for 1.1
    const char *requiredExtensions11[] = {
        "cl_khr_global_int32_base_atomics",
        "cl_khr_global_int32_extended_atomics",
        "cl_khr_local_int32_base_atomics",
        "cl_khr_local_int32_extended_atomics",
        "cl_khr_byte_addressable_store",
    };


    if (device_cl_version >= Version(1, 1))
    {
        log_info("Checking for required extensions for OpenCL 1.1 and later "
                 "devices...\n");
        for (int i = 0; i < ARRAY_SIZE(requiredExtensions11); i++)
        {
            if (!is_extension_available(deviceID, requiredExtensions11[i]))
            {
                log_error("ERROR: Required extension for 1.1 and greater "
                          "devices is not in extension string: %s\n",
                          requiredExtensions11[i]);
                return -1;
            }
            else
                log_info("\t%s\n", requiredExtensions11[i]);
        }

        if (device_cl_version >= Version(1, 2))
        {
            log_info("Checking for required extensions for OpenCL 1.2 and "
                     "later devices...\n");
            // The only required extension for an OpenCL-1.2 device is
            // cl_khr_fp64 and it is only required if double precision is
            // supported.
            cl_device_fp_config doubles_supported;
            cl_int error = clGetDeviceInfo(deviceID, CL_DEVICE_DOUBLE_FP_CONFIG,
                                           sizeof(doubles_supported),
                                           &doubles_supported, 0);
            test_error(error, "Unable to get device double fp config");
            if (doubles_supported)
            {
                if (!is_extension_available(deviceID, "cl_khr_fp64"))
                {
                    log_error(
                        "ERROR: Required extension for 1.2 and greater devices "
                        "is not in extension string: cl_khr_fp64\n");
                }
                else
                {
                    log_info("\t%s\n", "cl_khr_fp64");
                }
            }
        }

        if (device_cl_version >= Version(2, 0)
            && device_cl_version < Version(3, 0))
        {
            log_info("Checking for required extensions for OpenCL 2.0, 2.1 and "
                     "2.2 devices...\n");
            for (int i = 0; i < ARRAY_SIZE(requiredExtensions2x); i++)
            {
                if (!is_extension_available(deviceID, requiredExtensions2x[i]))
                {
                    log_error("ERROR: Required extension for 2.0, 2.1 and 2.2 "
                              "devices is not in extension string: %s\n",
                              requiredExtensions2x[i]);
                    return -1;
                }
                else
                {
                    log_info("\t%s\n", requiredExtensions2x[i]);
                }
            }
        }
    }
    else
        log_info("WARNING: skipping required extension test -- OpenCL 1.0 "
                 "device.\n");
    return 0;
}

int test_min_max_language_version(cl_device_id deviceID, cl_context context, cl_command_queue queue, int num_elements)
{
    cl_int error;
    cl_char buffer[ 4098 ];
    size_t length;

    // Device version should fit the regex "OpenCL [0-9]+\.[0-9]+ *.*"
    error = clGetDeviceInfo( deviceID, CL_DEVICE_OPENCL_C_VERSION, sizeof( buffer ), buffer, &length );
    test_error( error, "Unable to get device opencl c version string" );
    if( memcmp( buffer, "OpenCL C ", strlen( "OpenCL C " ) ) != 0 )
    {
        log_error( "ERROR: Initial part of device language version string does not match required format! (returned: \"%s\")\n", (char *)buffer );
        return -1;
    }

    log_info("Returned version \"%s\".\n", buffer);

    char *p1 = (char *)buffer + strlen( "OpenCL C " );
    while( *p1 == ' ' )
        p1++;
    char *p2 = p1;
    if( ! isdigit(*p2) )
    {
        log_error( "ERROR: Major revision number must follow space behind OpenCL C! (returned %s)\n", (char*) buffer );
        return -1;
    }
    while( isdigit( *p2 ) )
        p2++;
    if( *p2 != '.' )
    {
        log_error( "ERROR: Version number must contain a decimal point! (returned: %s)\n", (char *)buffer );
        return -1;
    }
    char *p3 = p2 + 1;
    if( ! isdigit(*p3) )
    {
        log_error( "ERROR: Minor revision number is missing or does not abut the decimal point! (returned %s)\n", (char*) buffer );
        return -1;
    }
    while( isdigit( *p3 ) )
        p3++;
    if( *p3 != ' ' )
    {
        log_error( "ERROR: A space must appear after the minor version! (returned: %s)\n", (char *)buffer );
        return -1;
    }
    *p2 = ' '; // Put in a space for atoi below.
    p2++;

    int major = atoi( p1 );
    int minor = atoi( p2 );
    int minor_revision = 2;

    if( major * 10 + minor < 10 + minor_revision )
    {
        // If the language version did not match, check to see if OPENCL_1_0_DEVICE is set.
        if( getenv("OPENCL_1_0_DEVICE"))
        {
          log_info( "WARNING: This test was run with OPENCL_1_0_DEVICE defined!  This is not a OpenCL 1.1 or OpenCL 1.2 compatible device!!!\n" );
        }
        else if( getenv("OPENCL_1_1_DEVICE"))
        {
          log_info( "WARNING: This test was run with OPENCL_1_1_DEVICE defined!  This is not a OpenCL 1.2 compatible device!!!\n" );
        }
        else
        {
          log_error( "ERROR: OpenCL device language version returned is less than 1.%d! (Returned: %s)\n", minor_revision, (char *)buffer );
          return -1;
        }
    }

    // Sanity checks on the returned values
    if( length != (strlen( (char *)buffer ) + 1 ))
    {
        log_error( "ERROR: Returned length of version string does not match actual length (actual: %d, returned: %d)\n", (int)strlen( (char *)buffer ), (int)length );
        return -1;
    }

    return 0;
}