clinfo.c 13 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307
  1. /* StarPU --- Runtime system for heterogeneous multicore architectures.
  2. *
  3. * Copyright (C) 2010,2011 University of Bordeaux
  4. *
  5. * StarPU is free software; you can redistribute it and/or modify
  6. * it under the terms of the GNU Lesser General Public License as published by
  7. * the Free Software Foundation; either version 2.1 of the License, or (at
  8. * your option) any later version.
  9. *
  10. * StarPU is distributed in the hope that it will be useful, but
  11. * WITHOUT ANY WARRANTY; without even the implied warranty of
  12. * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
  13. *
  14. * See the GNU Lesser General Public License in COPYING.LGPL for more details.
  15. */
  16. #include <stdio.h>
  17. #include <stdlib.h>
  18. #include <CL/cl.h>
  19. static inline void
  20. checkErr(cl_int err, const char * name) {
  21. if (err != CL_SUCCESS) {
  22. fprintf(stderr, "ERROR: %s (%d)\n", name, err);
  23. exit(1);
  24. }
  25. }
  26. int
  27. main(void) {
  28. cl_int err;
  29. cl_uint num_platforms;
  30. cl_platform_id *platforms;
  31. // Plaform info
  32. err = clGetPlatformIDs(0, NULL, &num_platforms);
  33. if (num_platforms == 0) {
  34. printf("No OpenCL platform found.\n");
  35. exit(77);
  36. }
  37. checkErr(err, "Unable to get platform count");
  38. platforms = (cl_platform_id*)malloc(sizeof(cl_platform_id)*num_platforms);
  39. err = clGetPlatformIDs(num_platforms, platforms, NULL);
  40. checkErr(err, "Unable to get platform list");
  41. // Iteratate over platforms
  42. printf("Number of platforms:\t\t\t\t %d\n", num_platforms);
  43. {
  44. unsigned int i;
  45. for (i=0; i<num_platforms; i++) {
  46. char str[256];
  47. err = clGetPlatformInfo(platforms[i], CL_PLATFORM_PROFILE, sizeof(str), str, NULL);
  48. checkErr(err, "clGetPlatformInfo(CL_PLATFORM_PROFILE)");
  49. printf(" Plaform Profile:\t\t\t\t %s\n", str);
  50. err= clGetPlatformInfo(platforms[i], CL_PLATFORM_VERSION, sizeof(str), str, NULL);
  51. checkErr(err, "clGetPlatformInfo(CL_PLATFORM_VERSION)");
  52. printf(" Plaform Version:\t\t\t\t %s\n", str);
  53. err = clGetPlatformInfo(platforms[i], CL_PLATFORM_NAME, sizeof(str), str, NULL);
  54. checkErr(err, "clGetPlatformInfo(CL_PLATFORM_NAME)");
  55. printf(" Plaform Name:\t\t\t\t\t %s\n", str);
  56. err = clGetPlatformInfo(platforms[i], CL_PLATFORM_VENDOR, sizeof(str), str, NULL);
  57. checkErr(err, "clGetPlatformInfo(CL_PLATFORM_VENDOR)");
  58. printf(" Plaform Vendor:\t\t\t\t %s\n", str);
  59. err = clGetPlatformInfo(platforms[i], CL_PLATFORM_EXTENSIONS, sizeof(str), str, NULL);
  60. checkErr(err, "clGetPlatformInfo(CL_PLATFORM_EXTENSIONS)");
  61. printf(" Plaform Extensions:\t\t\t %s\n", str);
  62. }
  63. }
  64. printf("\n\n");
  65. // Now Iteratate over each platform and its devices
  66. {
  67. unsigned int i;
  68. for (i=0; i<num_platforms; i++) {
  69. char str[256];
  70. cl_device_id * devices;
  71. cl_uint num_devices;
  72. err = clGetPlatformInfo(platforms[i], CL_PLATFORM_NAME, sizeof(str), &str, NULL);
  73. checkErr(err, "clGetPlatformInfo(CL_PLATFORM_NAME)");
  74. printf(" Plaform Name:\t\t\t\t\t %s\n", str);
  75. err = clGetDeviceIDs(platforms[i], CL_DEVICE_TYPE_ALL, 0, NULL, &num_devices);
  76. checkErr(err, "clGetDeviceIds(CL_DEVICE_TYPE_ALL)");
  77. if (num_devices == 0) {
  78. printf(" No devices found\n");
  79. continue;
  80. }
  81. devices = (cl_device_id*)malloc(sizeof(cl_device_id)*num_devices);
  82. err = clGetDeviceIDs(platforms[i], CL_DEVICE_TYPE_ALL, num_devices, devices, NULL);
  83. checkErr(err, "clGetDeviceIds(CL_DEVICE_TYPE_ALL)");
  84. printf(" Number of devices:\t\t\t\t %d\n", num_devices);
  85. {
  86. unsigned int j;
  87. for (j=0; j<num_devices; j++) {
  88. cl_device_type dev_type;
  89. printf("\n DEVICE %d\n", j);
  90. err = clGetDeviceInfo(devices[j], CL_DEVICE_TYPE, sizeof(dev_type), &dev_type, NULL);
  91. checkErr(err, "clGetDeviceInfo(CL_DEVICE_TYPE)");
  92. printf(" Device Type:\t\t\t\t\t ");
  93. if (dev_type & CL_DEVICE_TYPE_ACCELERATOR)
  94. printf("CL_DEVICE_TYPE_ACCELERATOR ");
  95. else if (dev_type & CL_DEVICE_TYPE_CPU)
  96. printf("CL_DEVICE_TYPE_CPU ");
  97. else if (dev_type & CL_DEVICE_TYPE_GPU)
  98. printf("CL_DEVICE_TYPE_GPU ");
  99. else if (dev_type & CL_DEVICE_TYPE_DEFAULT)
  100. printf("CL_DEVICE_TYPE_DEFAULT ");
  101. printf("\n");
  102. {
  103. cl_uint vendor_id;
  104. err = clGetDeviceInfo(devices[j], CL_DEVICE_VENDOR_ID, sizeof(vendor_id), &vendor_id, NULL);
  105. checkErr(err, "clGetDeviceInfo(CL_DEVICE_VENDOR_ID)");
  106. printf(" Device ID:\t\t\t\t\t %d\n", vendor_id);
  107. }
  108. {
  109. cl_uint units;
  110. err = clGetDeviceInfo(devices[j], CL_DEVICE_MAX_COMPUTE_UNITS, sizeof(units), &units, NULL);
  111. checkErr(err, "clGetDeviceInfo(CL_DEVICE_MAX_COMPUTE_UNITS)");
  112. printf(" Max compute units:\t\t\t\t %d\n", units);
  113. }
  114. {
  115. cl_uint dims;
  116. size_t *sizes;
  117. err = clGetDeviceInfo(devices[j], CL_DEVICE_MAX_WORK_ITEM_DIMENSIONS, sizeof(dims), &dims, NULL);
  118. checkErr(err, "clGetDeviceInfo(CL_DEVICE_MAX_WORK_ITEM_DIMENSIONS)");
  119. printf(" Max work item dimensions:\t\t\t %d\n", dims);
  120. sizes = (size_t*)malloc(dims * sizeof(size_t));
  121. err = clGetDeviceInfo(devices[j], CL_DEVICE_MAX_WORK_ITEM_SIZES, sizeof(size_t)*dims, sizes, NULL);
  122. checkErr(err, "clGetDeviceInfo(CL_DEVICE_MAX_WORK_ITEM_SIZES)");
  123. printf(" Max work item dimensions:\t\t\t %d\n", dims);
  124. {
  125. unsigned int k;
  126. printf(" Max work items:\t\t\t\t (");
  127. for (k=0; k<dims; k++) {
  128. printf("%u", (unsigned int)sizes[k]);
  129. if (k != dims-1)
  130. printf(",");
  131. }
  132. printf(")\n");
  133. }
  134. }
  135. #define GET_SIZET(CL_D,str) { \
  136. size_t val; \
  137. err = clGetDeviceInfo(devices[j], CL_D, sizeof(val), &val, NULL); \
  138. checkErr(err, "clGetDeviceInfo(" #CL_D ")"); \
  139. printf(str, (unsigned int)val); \
  140. }
  141. #define GET_STRING(CL_D,str,size) { \
  142. char val[size]; \
  143. err = clGetDeviceInfo(devices[j], CL_D, sizeof(val), val, NULL); \
  144. checkErr(err, "clGetDeviceInfo(" #CL_D ")"); \
  145. printf(str, val); \
  146. }
  147. #define GET_UINT(CL_D,str) { \
  148. cl_uint val; \
  149. err = clGetDeviceInfo(devices[j], CL_D, sizeof(val), &val, NULL); \
  150. checkErr(err, "clGetDeviceInfo(" #CL_D ")"); \
  151. printf(str, val); \
  152. }
  153. #define GET_ULONG(CL_D,str) { \
  154. cl_ulong val; \
  155. err = clGetDeviceInfo(devices[j], CL_D, sizeof(val), &val, NULL); \
  156. checkErr(err, "clGetDeviceInfo(" #CL_D ")"); \
  157. printf(str, val); \
  158. }
  159. #define GET_BOOL(CL_D,str) { \
  160. cl_bool val; \
  161. err = clGetDeviceInfo(devices[j], CL_D, sizeof(val), &val, NULL); \
  162. checkErr(err, "clGetDeviceInfo(" #CL_D ")"); \
  163. printf(str, (val == CL_TRUE ? "Yes" : "No")); \
  164. }
  165. #define GET_BOOL_CUSTOM(CL_D,str,t,f) { \
  166. cl_bool val; \
  167. err = clGetDeviceInfo(devices[j], CL_D, sizeof(val), &val, NULL); \
  168. checkErr(err, "clGetDeviceInfo(" #CL_D ")"); \
  169. printf(str, (val == CL_TRUE ? t : f)); \
  170. }
  171. #define GET_BITSET_AND(TYPE,CL_D,test,str) { \
  172. TYPE val; \
  173. err = clGetDeviceInfo(devices[j], CL_D, sizeof(val), &val, NULL); \
  174. checkErr(err, "clGetDeviceInfo(" #CL_D ")"); \
  175. printf(str, ((val & test) == CL_TRUE ? "Yes" : "No")); \
  176. }
  177. GET_SIZET(CL_DEVICE_MAX_WORK_GROUP_SIZE, " Max work group size:\t\t\t\t %u\n")
  178. GET_UINT(CL_DEVICE_PREFERRED_VECTOR_WIDTH_CHAR, " Preferred vector width char:\t\t\t %u\n")
  179. GET_UINT(CL_DEVICE_PREFERRED_VECTOR_WIDTH_SHORT, " Preferred vector width short:\t\t\t %u\n")
  180. GET_UINT(CL_DEVICE_PREFERRED_VECTOR_WIDTH_INT, " Preferred vector width int:\t\t\t %u\n")
  181. GET_UINT(CL_DEVICE_PREFERRED_VECTOR_WIDTH_LONG, " Preferred vector width long:\t\t\t %u\n")
  182. GET_UINT(CL_DEVICE_PREFERRED_VECTOR_WIDTH_FLOAT, " Preferred vector width float:\t\t\t %u\n")
  183. GET_UINT(CL_DEVICE_PREFERRED_VECTOR_WIDTH_DOUBLE, " Preferred vector width double:\t\t %u\n")
  184. GET_UINT(CL_DEVICE_MAX_CLOCK_FREQUENCY, " Max clock frequency:\t\t\t\t %uMHz\n")
  185. GET_UINT(CL_DEVICE_ADDRESS_BITS, " Address bits:\t\t\t\t\t %ubits\n")
  186. GET_ULONG(CL_DEVICE_MAX_MEM_ALLOC_SIZE, " Max memory allocation:\t\t\t %lu bytes\n")
  187. GET_BOOL(CL_DEVICE_IMAGE_SUPPORT, " Image support:\t\t\t\t %s\n")
  188. GET_SIZET(CL_DEVICE_MAX_PARAMETER_SIZE, " Max size of kernel argument:\t\t\t %u\n")
  189. GET_UINT(CL_DEVICE_MEM_BASE_ADDR_ALIGN, " Alignment of base addres:\t\t\t %u bits\n")
  190. GET_UINT(CL_DEVICE_MIN_DATA_TYPE_ALIGN_SIZE, " Minimum alignment for any datatype:\t\t %u bytes\n")
  191. printf(" Single precision floating point capability\n");
  192. GET_BITSET_AND(cl_device_fp_config,CL_DEVICE_SINGLE_FP_CONFIG, CL_FP_DENORM, " Denorms:\t\t\t\t\t %s\n")
  193. GET_BITSET_AND(cl_device_fp_config,CL_DEVICE_SINGLE_FP_CONFIG, CL_FP_INF_NAN, " Quiet NaNs:\t\t\t\t\t %s\n")
  194. GET_BITSET_AND(cl_device_fp_config,CL_DEVICE_SINGLE_FP_CONFIG, CL_FP_ROUND_TO_NEAREST, " Round to nearest even:\t\t\t %s\n")
  195. GET_BITSET_AND(cl_device_fp_config,CL_DEVICE_SINGLE_FP_CONFIG, CL_FP_ROUND_TO_ZERO, " Round to zero:\t\t\t\t %s\n")
  196. GET_BITSET_AND(cl_device_fp_config,CL_DEVICE_SINGLE_FP_CONFIG, CL_FP_ROUND_TO_INF, " Round to +ve and infinity:\t\t\t %s\n")
  197. GET_BITSET_AND(cl_device_fp_config,CL_DEVICE_SINGLE_FP_CONFIG, CL_FP_FMA, " IEEE754-2008 fused multiply-add:\t\t %s\n")
  198. {
  199. cl_device_mem_cache_type cache;
  200. err = clGetDeviceInfo(devices[j], CL_DEVICE_GLOBAL_MEM_CACHE_TYPE, sizeof(cache), &cache, NULL);
  201. checkErr(err, "clGetDeviceInfo(CL_DEVICE_GLOBAL_MEM_CACHE_TYPE)");
  202. printf(" Cache type:\t\t\t\t\t ");
  203. switch (cache) {
  204. case CL_NONE:
  205. printf("None\n");
  206. break;
  207. case CL_READ_ONLY_CACHE:
  208. printf("Read only\n");
  209. break;
  210. case CL_READ_WRITE_CACHE:
  211. printf("Read/Write\n");
  212. break;
  213. }
  214. }
  215. GET_UINT(CL_DEVICE_GLOBAL_MEM_CACHELINE_SIZE, " Cache line size:\t\t\t\t %u bytes\n")
  216. GET_ULONG(CL_DEVICE_GLOBAL_MEM_CACHE_SIZE, " Cache size:\t\t\t\t\t %lu bytes\n")
  217. GET_ULONG(CL_DEVICE_GLOBAL_MEM_SIZE, " Global memory size:\t\t\t\t %lu bytes\n")
  218. GET_ULONG(CL_DEVICE_MAX_CONSTANT_BUFFER_SIZE, " Constant buffer size:\t\t\t\t %lu bytes\n")
  219. GET_UINT(CL_DEVICE_MAX_CONSTANT_ARGS, " Max number of constant args:\t\t\t %u\n")
  220. {
  221. cl_device_local_mem_type cache;
  222. err = clGetDeviceInfo(devices[j], CL_DEVICE_LOCAL_MEM_TYPE, sizeof(cache), &cache, NULL);
  223. checkErr(err, "clGetDeviceInfo(CL_DEVICE_LOCAL_MEM_TYPE)");
  224. printf(" Local memory type:\t\t\t\t ");
  225. switch (cache) {
  226. case CL_LOCAL:
  227. printf("Local\n");
  228. break;
  229. case CL_GLOBAL:
  230. printf("Global\n");
  231. break;
  232. }
  233. }
  234. GET_ULONG(CL_DEVICE_LOCAL_MEM_SIZE, " Local memory size:\t\t\t\t %lu bytes\n")
  235. GET_SIZET(CL_DEVICE_PROFILING_TIMER_RESOLUTION, " Profiling timer resolution:\t\t\t %u\n")
  236. GET_BOOL_CUSTOM(CL_DEVICE_ENDIAN_LITTLE, " Device endianess:\t\t\t\t %s\n", "Little", "Big")
  237. GET_BOOL(CL_DEVICE_AVAILABLE, " Available:\t\t\t\t\t %s\n")
  238. GET_BOOL(CL_DEVICE_COMPILER_AVAILABLE, " Compiler available:\t\t\t\t %s\n")
  239. printf(" Execution capabilities:\t\t\t\t \n");
  240. GET_BITSET_AND(cl_device_exec_capabilities, CL_DEVICE_EXECUTION_CAPABILITIES, CL_EXEC_KERNEL, " Execute OpenCL kernels:\t\t\t %s\n")
  241. GET_BITSET_AND(cl_device_exec_capabilities, CL_DEVICE_EXECUTION_CAPABILITIES, CL_EXEC_NATIVE_KERNEL, " Execute native kernels:\t\t\t %s\n")
  242. printf(" Queue properties:\t\t\t\t\n ");
  243. GET_BITSET_AND(cl_command_queue_properties, CL_DEVICE_QUEUE_PROPERTIES, CL_QUEUE_OUT_OF_ORDER_EXEC_MODE_ENABLE, " Out-of-Order:\t\t\t\t %s\n")
  244. GET_BITSET_AND(cl_command_queue_properties, CL_DEVICE_QUEUE_PROPERTIES, CL_QUEUE_PROFILING_ENABLE, " Profiling:\t\t\t\t\t %s\n")
  245. GET_STRING(CL_DEVICE_NAME, " Name:\t\t\t\t\t\t %s\n", 256);
  246. GET_STRING(CL_DEVICE_VENDOR, " Vendor:\t\t\t\t\t %s\n", 256);
  247. GET_STRING(CL_DRIVER_VERSION, " Driver version:\t\t\t\t %s\n", 10);
  248. GET_STRING(CL_DEVICE_PROFILE, " Profile:\t\t\t\t\t %s\n", 30);
  249. GET_STRING(CL_DEVICE_VERSION, " Version:\t\t\t\t\t %s\n", 50);
  250. GET_STRING(CL_DEVICE_EXTENSIONS, " Extensions:\t\t\t\t\t %s\n", 4096);
  251. printf("\n");
  252. }
  253. }
  254. }
  255. }
  256. return 0;
  257. }