API tools faq
paste
Advertisement
Guest User

CMakeFortranCompilerId.F

a guest
Jan 21st, 2020
374
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Fortran 40.03 KB | None | 0 0
raw download clone embed print report
  1.       PROGRAM CMakeFortranCompilerId
  2. #if 0
  3. ! Identify the compiler
  4. #endif
  5. #if defined(_MSC_VER)
  6.        PRINT *, 'INFO:simulate[MSVC]'
  7. # if _MSC_VER >= 1900
  8.        PRINT *, 'INFO:simulate_version[019.00]'
  9. # elif _MSC_VER >= 1800
  10.        PRINT *, 'INFO:simulate_version[018.00]'
  11. # elif _MSC_VER >= 1700
  12.        PRINT *, 'INFO:simulate_version[017.00]'
  13. # elif _MSC_VER >= 1600
  14.        PRINT *, 'INFO:simulate_version[016.00]'
  15. # elif _MSC_VER >= 1500
  16.        PRINT *, 'INFO:simulate_version[015.00]'
  17. # elif _MSC_VER >= 1400
  18.        PRINT *, 'INFO:simulate_version[014.00]'
  19. # elif _MSC_VER >= 1310
  20.        PRINT *, 'INFO:simulate_version[013.01]'
  21. # else
  22.        PRINT *, 'INFO:simulate_version[013.00]'
  23. # endif
  24. #endif
  25. #if defined(__INTEL_COMPILER) || defined(__ICC)
  26.         PRINT *, 'INFO:compiler[Intel]'
  27. # define COMPILER_VERSION_MAJOR DEC(__INTEL_COMPILER/100)
  28. # define COMPILER_VERSION_MINOR DEC(__INTEL_COMPILER/10 % 10)
  29. # if defined(__INTEL_COMPILER_UPDATE)
  30. #  define COMPILER_VERSION_PATCH DEC(__INTEL_COMPILER_UPDATE)
  31. # else
  32. #  define COMPILER_VERSION_PATCH DEC(__INTEL_COMPILER   % 10)
  33. # endif
  34. # if defined(__INTEL_COMPILER_BUILD_DATE)
  35. #  define COMPILER_VERSION_TWEAK DEC(__INTEL_COMPILER_BUILD_DATE)
  36. # endif
  37. #elif defined(__SUNPRO_F95)
  38.         PRINT *, 'INFO:compiler[SunPro]'
  39. # define COMPILER_VERSION_MAJOR HEX(__SUNPRO_F95>>8)
  40. # define COMPILER_VERSION_MINOR HEX(__SUNPRO_F95>>4 & 0xF)
  41. # define COMPILER_VERSION_PATCH HEX(__SUNPRO_F95    & 0xF)
  42. #elif defined(__SUNPRO_F90)
  43.         PRINT *, 'INFO:compiler[SunPro]'
  44. # define COMPILER_VERSION_MAJOR HEX(__SUNPRO_F90>>8)
  45. # define COMPILER_VERSION_MINOR HEX(__SUNPRO_F90>>4 & 0xF)
  46. # define COMPILER_VERSION_PATCH HEX(__SUNPRO_F90    & 0xF)
  47. #elif defined(_CRAYFTN)
  48.         PRINT *, 'INFO:compiler[Cray]'
  49. # define COMPILER_VERSION_MAJOR DEC(_RELEASE_MAJOR)
  50. # define COMPILER_VERSION_MINOR DEC(_RELEASE_MINOR)
  51. #elif defined(__G95__)
  52.         PRINT *, 'INFO:compiler[G95]'
  53. # define COMPILER_VERSION_MAJOR DEC(__G95__)
  54. # define COMPILER_VERSION_MINOR DEC(__G95_MINOR__)
  55. #elif defined(__PATHSCALE__)
  56.         PRINT *, 'INFO:compiler[PathScale]'
  57. # define COMPILER_VERSION_MAJOR DEC(__PATHCC__)
  58. # define COMPILER_VERSION_MINOR DEC(__PATHCC_MINOR__)
  59. # if defined(__PATHCC_PATCHLEVEL__)
  60. #  define COMPILER_VERSION_PATCH DEC(__PATHCC_PATCHLEVEL__)
  61. # endif
  62. #elif defined(__ABSOFT__)
  63.         PRINT *, 'INFO:compiler[Absoft]'
  64. #elif defined(__GNUC__)
  65.         PRINT *, 'INFO:compiler[GNU]'
  66. # define COMPILER_VERSION_MAJOR DEC(__GNUC__)
  67. # define COMPILER_VERSION_MINOR DEC(__GNUC_MINOR__)
  68. # if defined(__GNUC_PATCHLEVEL__)
  69. #  define COMPILER_VERSION_PATCH DEC(__GNUC_PATCHLEVEL__)
  70. # endif
  71. #elif defined(__IBMC__)
  72. # if defined(__COMPILER_VER__)
  73.         PRINT *, 'INFO:compiler[zOS]'
  74. # elif __IBMC__ >= 800
  75.         PRINT *, 'INFO:compiler[XL]'
  76. #  define COMPILER_VERSION_MAJOR DEC(__IBMC__/100)
  77. #  define COMPILER_VERSION_MINOR DEC(__IBMC__/10 % 10)
  78. #  define COMPILER_VERSION_PATCH DEC(__IBMC__    % 10)
  79. # else
  80.         PRINT *, 'INFO:compiler[VisualAge]'
  81. #  define COMPILER_VERSION_MAJOR DEC(__IBMC__/100)
  82. #  define COMPILER_VERSION_MINOR DEC(__IBMC__/10 % 10)
  83. #  define COMPILER_VERSION_PATCH DEC(__IBMC__    % 10)
  84. # endif
  85. #elif defined(__PGI)
  86.         PRINT *, 'INFO:compiler[PGI]'
  87. # define COMPILER_VERSION_MAJOR DEC(__PGIC__)
  88. # define COMPILER_VERSION_MINOR DEC(__PGIC_MINOR__)
  89. # if defined(__PGIC_PATCHLEVEL__)
  90. #  define COMPILER_VERSION_PATCH DEC(__PGIC_PATCHLEVEL__)
  91. # endif
  92. #elif defined(__FLANG)
  93.         PRINT *, 'INFO:compiler[Flang]'
  94. # define COMPILER_VERSION_MAJOR DEC(__FLANG_MAJOR__)
  95. # define COMPILER_VERSION_MINOR DEC(__FLANG_MINOR__)
  96. # if defined(__FLANG_PATCHLEVEL__)
  97. #  define COMPILER_VERSION_PATCH DEC(__FLANG_PATCHLEVEL__)
  98. # endif
  99. #elif defined(_AIX) || defined(__AIX) || defined(__AIX__) || defined(__aix) || defined(__aix__)
  100.         PRINT *, 'INFO:compiler[VisualAge]'
  101. #elif defined(__hpux) || defined(__hpux__)
  102.         PRINT *, 'INFO:compiler[HP]'
  103. #elif defined(NAGFOR)
  104.         PRINT *, 'INFO:compiler[NAG]'
  105. #define COMPILER_VERSION_MAJOR DEC(__NAG_COMPILER_RELEASE/10)
  106. #define COMPILER_VERSION_MINOR DEC(__NAG_COMPILER_RELEASE % 10)
  107. #define COMPILER_VERSION_PATCH DEC(__NAG_COMPILER_BUILD)
  108. #else
  109.         PRINT *, 'INFO:compiler[]'
  110. #endif
  111. #if defined(__CRAYXE) || defined(__CRAYXC)
  112.         PRINT *, 'INFO:compiler_wrapper[CrayPrgEnv]'
  113. #endif
  114.  
  115. #if 0
  116. ! Identify the platform
  117. #endif
  118. #if defined(__linux) || defined(__linux__) || defined(linux)
  119.         PRINT *, 'INFO:platform[Linux]'
  120. #elif defined(__CYGWIN__)
  121.         PRINT *, 'INFO:platform[Cygwin]'
  122. #elif defined(__MINGW32__)
  123.         PRINT *, 'INFO:platform[MinGW]'
  124. #elif defined(__APPLE__)
  125.         PRINT *, 'INFO:platform[Darwin]'
  126. #elif defined(_WIN32) || defined(__WIN32__) || defined(WIN32)
  127.         PRINT *, 'INFO:platform[Windows]'
  128. #elif defined(__FreeBSD__) || defined(__FreeBSD)
  129.         PRINT *, 'INFO:platform[FreeBSD]'
  130. #elif defined(__NetBSD__) || defined(__NetBSD)
  131.         PRINT *, 'INFO:platform[NetBSD]'
  132. #elif defined(__OpenBSD__) || defined(__OPENBSD)
  133.         PRINT *, 'INFO:platform[OpenBSD]'
  134. #elif defined(__sun) || defined(sun)
  135.         PRINT *, 'INFO:platform[SunOS]'
  136. #elif defined(_AIX) || defined(__AIX) || defined(__AIX__) || defined(__aix) || defined(__aix__)
  137.         PRINT *, 'INFO:platform[AIX]'
  138. #elif defined(__hpux) || defined(__hpux__)
  139.         PRINT *, 'INFO:platform[HP-UX]'
  140. #elif defined(__HAIKU__)
  141.         PRINT *, 'INFO:platform[Haiku]'
  142. #elif defined(__BeOS) || defined(__BEOS__) || defined(_BEOS)
  143.         PRINT *, 'INFO:platform[BeOS]'
  144. #elif defined(__QNX__) || defined(__QNXNTO__)
  145.         PRINT *, 'INFO:platform[QNX]'
  146. #elif defined(__tru64) || defined(_tru64) || defined(__TRU64__)
  147.         PRINT *, 'INFO:platform[Tru64]'
  148. #elif defined(__riscos) || defined(__riscos__)
  149.         PRINT *, 'INFO:platform[RISCos]'
  150. #elif defined(__sinix) || defined(__sinix__) || defined(__SINIX__)
  151.         PRINT *, 'INFO:platform[SINIX]'
  152. #elif defined(__UNIX_SV__)
  153.         PRINT *, 'INFO:platform[UNIX_SV]'
  154. #elif defined(__bsdos__)
  155.         PRINT *, 'INFO:platform[BSDOS]'
  156. #elif defined(_MPRAS) || defined(MPRAS)
  157.         PRINT *, 'INFO:platform[MP-RAS]'
  158. #elif defined(__osf) || defined(__osf__)
  159.         PRINT *, 'INFO:platform[OSF1]'
  160. #elif defined(_SCO_SV) || defined(SCO_SV) || defined(sco_sv)
  161.         PRINT *, 'INFO:platform[SCO_SV]'
  162. #elif defined(__ultrix) || defined(__ultrix__) || defined(_ULTRIX)
  163.         PRINT *, 'INFO:platform[ULTRIX]'
  164. #elif defined(__XENIX__) || defined(_XENIX) || defined(XENIX)
  165.         PRINT *, 'INFO:platform[Xenix]'
  166. #else
  167.         PRINT *, 'INFO:platform[]'
  168. #endif
  169. #if defined(_WIN32) && (defined(__INTEL_COMPILER) || defined(__ICC))
  170. # if defined(_M_IA64)
  171.         PRINT *, 'INFO:arch[IA64]'
  172. # elif defined(_M_X64) || defined(_M_AMD64)
  173.         PRINT *, 'INFO:arch[x64]'
  174. # elif defined(_M_IX86)
  175.         PRINT *, 'INFO:arch[X86]'
  176. # endif
  177. #endif
  178.  
  179. #if 0
  180. ! Encode compiler version digits
  181. #endif
  182. #define DEC_8(n) (((n) / 10000000) % 10)
  183. #define DEC_7(n) (((n) / 1000000)  % 10)
  184. #define DEC_6(n) (((n) / 100000)   % 10)
  185. #define DEC_5(n) (((n) / 10000)    % 10)
  186. #define DEC_4(n) (((n) / 1000)     % 10)
  187. #define DEC_3(n) (((n) / 100)      % 10)
  188. #define DEC_2(n) (((n) / 10)       % 10)
  189. #define DEC_1(n) (((n)    )        % 10)
  190. #define HEX_8(n) ((n)>>28 & 0xF)
  191. #define HEX_7(n) ((n)>>24 & 0xF)
  192. #define HEX_6(n) ((n)>>20 & 0xF)
  193. #define HEX_5(n) ((n)>>16 & 0xF)
  194. #define HEX_4(n) ((n)>>12 & 0xF)
  195. #define HEX_3(n) ((n)>>8  & 0xF)
  196. #define HEX_2(n) ((n)>>4  & 0xF)
  197. #define HEX_1(n) ((n)     & 0xF)
  198.  
  199. #if defined(COMPILER_VERSION_MAJOR)
  200. # undef DEC
  201. # undef HEX
  202. # define DEC(n) DEC_1(n)
  203. # define HEX(n) HEX_1(n)
  204. # if COMPILER_VERSION_MAJOR == 0
  205.         PRINT *, 'INFO:compiler_version_MAJOR_digit_1[0]'
  206. # elif COMPILER_VERSION_MAJOR == 1
  207.         PRINT *, 'INFO:compiler_version_MAJOR_digit_1[1]'
  208. # elif COMPILER_VERSION_MAJOR == 2
  209.         PRINT *, 'INFO:compiler_version_MAJOR_digit_1[2]'
  210. # elif COMPILER_VERSION_MAJOR == 3
  211.         PRINT *, 'INFO:compiler_version_MAJOR_digit_1[3]'
  212. # elif COMPILER_VERSION_MAJOR == 4
  213.         PRINT *, 'INFO:compiler_version_MAJOR_digit_1[4]'
  214. # elif COMPILER_VERSION_MAJOR == 5
  215.         PRINT *, 'INFO:compiler_version_MAJOR_digit_1[5]'
  216. # elif COMPILER_VERSION_MAJOR == 6
  217.         PRINT *, 'INFO:compiler_version_MAJOR_digit_1[6]'
  218. # elif COMPILER_VERSION_MAJOR == 7
  219.         PRINT *, 'INFO:compiler_version_MAJOR_digit_1[7]'
  220. # elif COMPILER_VERSION_MAJOR == 8
  221.         PRINT *, 'INFO:compiler_version_MAJOR_digit_1[8]'
  222. # elif COMPILER_VERSION_MAJOR == 9
  223.         PRINT *, 'INFO:compiler_version_MAJOR_digit_1[9]'
  224. # endif
  225.  
  226. # undef DEC
  227. # undef HEX
  228. # define DEC(n) DEC_2(n)
  229. # define HEX(n) HEX_2(n)
  230. # if COMPILER_VERSION_MAJOR == 0
  231.         PRINT *, 'INFO:compiler_version_MAJOR_digit_2[0]'
  232. # elif COMPILER_VERSION_MAJOR == 1
  233.         PRINT *, 'INFO:compiler_version_MAJOR_digit_2[1]'
  234. # elif COMPILER_VERSION_MAJOR == 2
  235.         PRINT *, 'INFO:compiler_version_MAJOR_digit_2[2]'
  236. # elif COMPILER_VERSION_MAJOR == 3
  237.         PRINT *, 'INFO:compiler_version_MAJOR_digit_2[3]'
  238. # elif COMPILER_VERSION_MAJOR == 4
  239.         PRINT *, 'INFO:compiler_version_MAJOR_digit_2[4]'
  240. # elif COMPILER_VERSION_MAJOR == 5
  241.         PRINT *, 'INFO:compiler_version_MAJOR_digit_2[5]'
  242. # elif COMPILER_VERSION_MAJOR == 6
  243.         PRINT *, 'INFO:compiler_version_MAJOR_digit_2[6]'
  244. # elif COMPILER_VERSION_MAJOR == 7
  245.         PRINT *, 'INFO:compiler_version_MAJOR_digit_2[7]'
  246. # elif COMPILER_VERSION_MAJOR == 8
  247.         PRINT *, 'INFO:compiler_version_MAJOR_digit_2[8]'
  248. # elif COMPILER_VERSION_MAJOR == 9
  249.         PRINT *, 'INFO:compiler_version_MAJOR_digit_2[9]'
  250. # endif
  251.  
  252. # undef DEC
  253. # undef HEX
  254. # define DEC(n) DEC_3(n)
  255. # define HEX(n) HEX_3(n)
  256. # if COMPILER_VERSION_MAJOR == 0
  257.         PRINT *, 'INFO:compiler_version_MAJOR_digit_3[0]'
  258. # elif COMPILER_VERSION_MAJOR == 1
  259.         PRINT *, 'INFO:compiler_version_MAJOR_digit_3[1]'
  260. # elif COMPILER_VERSION_MAJOR == 2
  261.         PRINT *, 'INFO:compiler_version_MAJOR_digit_3[2]'
  262. # elif COMPILER_VERSION_MAJOR == 3
  263.         PRINT *, 'INFO:compiler_version_MAJOR_digit_3[3]'
  264. # elif COMPILER_VERSION_MAJOR == 4
  265.         PRINT *, 'INFO:compiler_version_MAJOR_digit_3[4]'
  266. # elif COMPILER_VERSION_MAJOR == 5
  267.         PRINT *, 'INFO:compiler_version_MAJOR_digit_3[5]'
  268. # elif COMPILER_VERSION_MAJOR == 6
  269.         PRINT *, 'INFO:compiler_version_MAJOR_digit_3[6]'
  270. # elif COMPILER_VERSION_MAJOR == 7
  271.         PRINT *, 'INFO:compiler_version_MAJOR_digit_3[7]'
  272. # elif COMPILER_VERSION_MAJOR == 8
  273.         PRINT *, 'INFO:compiler_version_MAJOR_digit_3[8]'
  274. # elif COMPILER_VERSION_MAJOR == 9
  275.         PRINT *, 'INFO:compiler_version_MAJOR_digit_3[9]'
  276. # endif
  277.  
  278. # undef DEC
  279. # undef HEX
  280. # define DEC(n) DEC_4(n)
  281. # define HEX(n) HEX_4(n)
  282. # if COMPILER_VERSION_MAJOR == 0
  283.         PRINT *, 'INFO:compiler_version_MAJOR_digit_4[0]'
  284. # elif COMPILER_VERSION_MAJOR == 1
  285.         PRINT *, 'INFO:compiler_version_MAJOR_digit_4[1]'
  286. # elif COMPILER_VERSION_MAJOR == 2
  287.         PRINT *, 'INFO:compiler_version_MAJOR_digit_4[2]'
  288. # elif COMPILER_VERSION_MAJOR == 3
  289.         PRINT *, 'INFO:compiler_version_MAJOR_digit_4[3]'
  290. # elif COMPILER_VERSION_MAJOR == 4
  291.         PRINT *, 'INFO:compiler_version_MAJOR_digit_4[4]'
  292. # elif COMPILER_VERSION_MAJOR == 5
  293.         PRINT *, 'INFO:compiler_version_MAJOR_digit_4[5]'
  294. # elif COMPILER_VERSION_MAJOR == 6
  295.         PRINT *, 'INFO:compiler_version_MAJOR_digit_4[6]'
  296. # elif COMPILER_VERSION_MAJOR == 7
  297.         PRINT *, 'INFO:compiler_version_MAJOR_digit_4[7]'
  298. # elif COMPILER_VERSION_MAJOR == 8
  299.         PRINT *, 'INFO:compiler_version_MAJOR_digit_4[8]'
  300. # elif COMPILER_VERSION_MAJOR == 9
  301.         PRINT *, 'INFO:compiler_version_MAJOR_digit_4[9]'
  302. # endif
  303.  
  304. # undef DEC
  305. # undef HEX
  306. # define DEC(n) DEC_5(n)
  307. # define HEX(n) HEX_5(n)
  308. # if COMPILER_VERSION_MAJOR == 0
  309.         PRINT *, 'INFO:compiler_version_MAJOR_digit_5[0]'
  310. # elif COMPILER_VERSION_MAJOR == 1
  311.         PRINT *, 'INFO:compiler_version_MAJOR_digit_5[1]'
  312. # elif COMPILER_VERSION_MAJOR == 2
  313.         PRINT *, 'INFO:compiler_version_MAJOR_digit_5[2]'
  314. # elif COMPILER_VERSION_MAJOR == 3
  315.         PRINT *, 'INFO:compiler_version_MAJOR_digit_5[3]'
  316. # elif COMPILER_VERSION_MAJOR == 4
  317.         PRINT *, 'INFO:compiler_version_MAJOR_digit_5[4]'
  318. # elif COMPILER_VERSION_MAJOR == 5
  319.         PRINT *, 'INFO:compiler_version_MAJOR_digit_5[5]'
  320. # elif COMPILER_VERSION_MAJOR == 6
  321.         PRINT *, 'INFO:compiler_version_MAJOR_digit_5[6]'
  322. # elif COMPILER_VERSION_MAJOR == 7
  323.         PRINT *, 'INFO:compiler_version_MAJOR_digit_5[7]'
  324. # elif COMPILER_VERSION_MAJOR == 8
  325.         PRINT *, 'INFO:compiler_version_MAJOR_digit_5[8]'
  326. # elif COMPILER_VERSION_MAJOR == 9
  327.         PRINT *, 'INFO:compiler_version_MAJOR_digit_5[9]'
  328. # endif
  329.  
  330. # undef DEC
  331. # undef HEX
  332. # define DEC(n) DEC_6(n)
  333. # define HEX(n) HEX_6(n)
  334. # if COMPILER_VERSION_MAJOR == 0
  335.         PRINT *, 'INFO:compiler_version_MAJOR_digit_6[0]'
  336. # elif COMPILER_VERSION_MAJOR == 1
  337.         PRINT *, 'INFO:compiler_version_MAJOR_digit_6[1]'
  338. # elif COMPILER_VERSION_MAJOR == 2
  339.         PRINT *, 'INFO:compiler_version_MAJOR_digit_6[2]'
  340. # elif COMPILER_VERSION_MAJOR == 3
  341.         PRINT *, 'INFO:compiler_version_MAJOR_digit_6[3]'
  342. # elif COMPILER_VERSION_MAJOR == 4
  343.         PRINT *, 'INFO:compiler_version_MAJOR_digit_6[4]'
  344. # elif COMPILER_VERSION_MAJOR == 5
  345.         PRINT *, 'INFO:compiler_version_MAJOR_digit_6[5]'
  346. # elif COMPILER_VERSION_MAJOR == 6
  347.         PRINT *, 'INFO:compiler_version_MAJOR_digit_6[6]'
  348. # elif COMPILER_VERSION_MAJOR == 7
  349.         PRINT *, 'INFO:compiler_version_MAJOR_digit_6[7]'
  350. # elif COMPILER_VERSION_MAJOR == 8
  351.         PRINT *, 'INFO:compiler_version_MAJOR_digit_6[8]'
  352. # elif COMPILER_VERSION_MAJOR == 9
  353.         PRINT *, 'INFO:compiler_version_MAJOR_digit_6[9]'
  354. # endif
  355.  
  356. # undef DEC
  357. # undef HEX
  358. # define DEC(n) DEC_7(n)
  359. # define HEX(n) HEX_7(n)
  360. # if COMPILER_VERSION_MAJOR == 0
  361.         PRINT *, 'INFO:compiler_version_MAJOR_digit_7[0]'
  362. # elif COMPILER_VERSION_MAJOR == 1
  363.         PRINT *, 'INFO:compiler_version_MAJOR_digit_7[1]'
  364. # elif COMPILER_VERSION_MAJOR == 2
  365.         PRINT *, 'INFO:compiler_version_MAJOR_digit_7[2]'
  366. # elif COMPILER_VERSION_MAJOR == 3
  367.         PRINT *, 'INFO:compiler_version_MAJOR_digit_7[3]'
  368. # elif COMPILER_VERSION_MAJOR == 4
  369.         PRINT *, 'INFO:compiler_version_MAJOR_digit_7[4]'
  370. # elif COMPILER_VERSION_MAJOR == 5
  371.         PRINT *, 'INFO:compiler_version_MAJOR_digit_7[5]'
  372. # elif COMPILER_VERSION_MAJOR == 6
  373.         PRINT *, 'INFO:compiler_version_MAJOR_digit_7[6]'
  374. # elif COMPILER_VERSION_MAJOR == 7
  375.         PRINT *, 'INFO:compiler_version_MAJOR_digit_7[7]'
  376. # elif COMPILER_VERSION_MAJOR == 8
  377.         PRINT *, 'INFO:compiler_version_MAJOR_digit_7[8]'
  378. # elif COMPILER_VERSION_MAJOR == 9
  379.         PRINT *, 'INFO:compiler_version_MAJOR_digit_7[9]'
  380. # endif
  381.  
  382. # undef DEC
  383. # undef HEX
  384. # define DEC(n) DEC_8(n)
  385. # define HEX(n) HEX_8(n)
  386. # if COMPILER_VERSION_MAJOR == 0
  387.         PRINT *, 'INFO:compiler_version_MAJOR_digit_8[0]'
  388. # elif COMPILER_VERSION_MAJOR == 1
  389.         PRINT *, 'INFO:compiler_version_MAJOR_digit_8[1]'
  390. # elif COMPILER_VERSION_MAJOR == 2
  391.         PRINT *, 'INFO:compiler_version_MAJOR_digit_8[2]'
  392. # elif COMPILER_VERSION_MAJOR == 3
  393.         PRINT *, 'INFO:compiler_version_MAJOR_digit_8[3]'
  394. # elif COMPILER_VERSION_MAJOR == 4
  395.         PRINT *, 'INFO:compiler_version_MAJOR_digit_8[4]'
  396. # elif COMPILER_VERSION_MAJOR == 5
  397.         PRINT *, 'INFO:compiler_version_MAJOR_digit_8[5]'
  398. # elif COMPILER_VERSION_MAJOR == 6
  399.         PRINT *, 'INFO:compiler_version_MAJOR_digit_8[6]'
  400. # elif COMPILER_VERSION_MAJOR == 7
  401.         PRINT *, 'INFO:compiler_version_MAJOR_digit_8[7]'
  402. # elif COMPILER_VERSION_MAJOR == 8
  403.         PRINT *, 'INFO:compiler_version_MAJOR_digit_8[8]'
  404. # elif COMPILER_VERSION_MAJOR == 9
  405.         PRINT *, 'INFO:compiler_version_MAJOR_digit_8[9]'
  406. # endif
  407.  
  408. #endif
  409. #if defined(COMPILER_VERSION_MINOR)
  410. # undef DEC
  411. # undef HEX
  412. # define DEC(n) DEC_1(n)
  413. # define HEX(n) HEX_1(n)
  414. # if COMPILER_VERSION_MINOR == 0
  415.         PRINT *, 'INFO:compiler_version_MINOR_digit_1[0]'
  416. # elif COMPILER_VERSION_MINOR == 1
  417.         PRINT *, 'INFO:compiler_version_MINOR_digit_1[1]'
  418. # elif COMPILER_VERSION_MINOR == 2
  419.         PRINT *, 'INFO:compiler_version_MINOR_digit_1[2]'
  420. # elif COMPILER_VERSION_MINOR == 3
  421.         PRINT *, 'INFO:compiler_version_MINOR_digit_1[3]'
  422. # elif COMPILER_VERSION_MINOR == 4
  423.         PRINT *, 'INFO:compiler_version_MINOR_digit_1[4]'
  424. # elif COMPILER_VERSION_MINOR == 5
  425.         PRINT *, 'INFO:compiler_version_MINOR_digit_1[5]'
  426. # elif COMPILER_VERSION_MINOR == 6
  427.         PRINT *, 'INFO:compiler_version_MINOR_digit_1[6]'
  428. # elif COMPILER_VERSION_MINOR == 7
  429.         PRINT *, 'INFO:compiler_version_MINOR_digit_1[7]'
  430. # elif COMPILER_VERSION_MINOR == 8
  431.         PRINT *, 'INFO:compiler_version_MINOR_digit_1[8]'
  432. # elif COMPILER_VERSION_MINOR == 9
  433.         PRINT *, 'INFO:compiler_version_MINOR_digit_1[9]'
  434. # endif
  435.  
  436. # undef DEC
  437. # undef HEX
  438. # define DEC(n) DEC_2(n)
  439. # define HEX(n) HEX_2(n)
  440. # if COMPILER_VERSION_MINOR == 0
  441.         PRINT *, 'INFO:compiler_version_MINOR_digit_2[0]'
  442. # elif COMPILER_VERSION_MINOR == 1
  443.         PRINT *, 'INFO:compiler_version_MINOR_digit_2[1]'
  444. # elif COMPILER_VERSION_MINOR == 2
  445.         PRINT *, 'INFO:compiler_version_MINOR_digit_2[2]'
  446. # elif COMPILER_VERSION_MINOR == 3
  447.         PRINT *, 'INFO:compiler_version_MINOR_digit_2[3]'
  448. # elif COMPILER_VERSION_MINOR == 4
  449.         PRINT *, 'INFO:compiler_version_MINOR_digit_2[4]'
  450. # elif COMPILER_VERSION_MINOR == 5
  451.         PRINT *, 'INFO:compiler_version_MINOR_digit_2[5]'
  452. # elif COMPILER_VERSION_MINOR == 6
  453.         PRINT *, 'INFO:compiler_version_MINOR_digit_2[6]'
  454. # elif COMPILER_VERSION_MINOR == 7
  455.         PRINT *, 'INFO:compiler_version_MINOR_digit_2[7]'
  456. # elif COMPILER_VERSION_MINOR == 8
  457.         PRINT *, 'INFO:compiler_version_MINOR_digit_2[8]'
  458. # elif COMPILER_VERSION_MINOR == 9
  459.         PRINT *, 'INFO:compiler_version_MINOR_digit_2[9]'
  460. # endif
  461.  
  462. # undef DEC
  463. # undef HEX
  464. # define DEC(n) DEC_3(n)
  465. # define HEX(n) HEX_3(n)
  466. # if COMPILER_VERSION_MINOR == 0
  467.         PRINT *, 'INFO:compiler_version_MINOR_digit_3[0]'
  468. # elif COMPILER_VERSION_MINOR == 1
  469.         PRINT *, 'INFO:compiler_version_MINOR_digit_3[1]'
  470. # elif COMPILER_VERSION_MINOR == 2
  471.         PRINT *, 'INFO:compiler_version_MINOR_digit_3[2]'
  472. # elif COMPILER_VERSION_MINOR == 3
  473.         PRINT *, 'INFO:compiler_version_MINOR_digit_3[3]'
  474. # elif COMPILER_VERSION_MINOR == 4
  475.         PRINT *, 'INFO:compiler_version_MINOR_digit_3[4]'
  476. # elif COMPILER_VERSION_MINOR == 5
  477.         PRINT *, 'INFO:compiler_version_MINOR_digit_3[5]'
  478. # elif COMPILER_VERSION_MINOR == 6
  479.         PRINT *, 'INFO:compiler_version_MINOR_digit_3[6]'
  480. # elif COMPILER_VERSION_MINOR == 7
  481.         PRINT *, 'INFO:compiler_version_MINOR_digit_3[7]'
  482. # elif COMPILER_VERSION_MINOR == 8
  483.         PRINT *, 'INFO:compiler_version_MINOR_digit_3[8]'
  484. # elif COMPILER_VERSION_MINOR == 9
  485.         PRINT *, 'INFO:compiler_version_MINOR_digit_3[9]'
  486. # endif
  487.  
  488. # undef DEC
  489. # undef HEX
  490. # define DEC(n) DEC_4(n)
  491. # define HEX(n) HEX_4(n)
  492. # if COMPILER_VERSION_MINOR == 0
  493.         PRINT *, 'INFO:compiler_version_MINOR_digit_4[0]'
  494. # elif COMPILER_VERSION_MINOR == 1
  495.         PRINT *, 'INFO:compiler_version_MINOR_digit_4[1]'
  496. # elif COMPILER_VERSION_MINOR == 2
  497.         PRINT *, 'INFO:compiler_version_MINOR_digit_4[2]'
  498. # elif COMPILER_VERSION_MINOR == 3
  499.         PRINT *, 'INFO:compiler_version_MINOR_digit_4[3]'
  500. # elif COMPILER_VERSION_MINOR == 4
  501.         PRINT *, 'INFO:compiler_version_MINOR_digit_4[4]'
  502. # elif COMPILER_VERSION_MINOR == 5
  503.         PRINT *, 'INFO:compiler_version_MINOR_digit_4[5]'
  504. # elif COMPILER_VERSION_MINOR == 6
  505.         PRINT *, 'INFO:compiler_version_MINOR_digit_4[6]'
  506. # elif COMPILER_VERSION_MINOR == 7
  507.         PRINT *, 'INFO:compiler_version_MINOR_digit_4[7]'
  508. # elif COMPILER_VERSION_MINOR == 8
  509.         PRINT *, 'INFO:compiler_version_MINOR_digit_4[8]'
  510. # elif COMPILER_VERSION_MINOR == 9
  511.         PRINT *, 'INFO:compiler_version_MINOR_digit_4[9]'
  512. # endif
  513.  
  514. # undef DEC
  515. # undef HEX
  516. # define DEC(n) DEC_5(n)
  517. # define HEX(n) HEX_5(n)
  518. # if COMPILER_VERSION_MINOR == 0
  519.         PRINT *, 'INFO:compiler_version_MINOR_digit_5[0]'
  520. # elif COMPILER_VERSION_MINOR == 1
  521.         PRINT *, 'INFO:compiler_version_MINOR_digit_5[1]'
  522. # elif COMPILER_VERSION_MINOR == 2
  523.         PRINT *, 'INFO:compiler_version_MINOR_digit_5[2]'
  524. # elif COMPILER_VERSION_MINOR == 3
  525.         PRINT *, 'INFO:compiler_version_MINOR_digit_5[3]'
  526. # elif COMPILER_VERSION_MINOR == 4
  527.         PRINT *, 'INFO:compiler_version_MINOR_digit_5[4]'
  528. # elif COMPILER_VERSION_MINOR == 5
  529.         PRINT *, 'INFO:compiler_version_MINOR_digit_5[5]'
  530. # elif COMPILER_VERSION_MINOR == 6
  531.         PRINT *, 'INFO:compiler_version_MINOR_digit_5[6]'
  532. # elif COMPILER_VERSION_MINOR == 7
  533.         PRINT *, 'INFO:compiler_version_MINOR_digit_5[7]'
  534. # elif COMPILER_VERSION_MINOR == 8
  535.         PRINT *, 'INFO:compiler_version_MINOR_digit_5[8]'
  536. # elif COMPILER_VERSION_MINOR == 9
  537.         PRINT *, 'INFO:compiler_version_MINOR_digit_5[9]'
  538. # endif
  539.  
  540. # undef DEC
  541. # undef HEX
  542. # define DEC(n) DEC_6(n)
  543. # define HEX(n) HEX_6(n)
  544. # if COMPILER_VERSION_MINOR == 0
  545.         PRINT *, 'INFO:compiler_version_MINOR_digit_6[0]'
  546. # elif COMPILER_VERSION_MINOR == 1
  547.         PRINT *, 'INFO:compiler_version_MINOR_digit_6[1]'
  548. # elif COMPILER_VERSION_MINOR == 2
  549.         PRINT *, 'INFO:compiler_version_MINOR_digit_6[2]'
  550. # elif COMPILER_VERSION_MINOR == 3
  551.         PRINT *, 'INFO:compiler_version_MINOR_digit_6[3]'
  552. # elif COMPILER_VERSION_MINOR == 4
  553.         PRINT *, 'INFO:compiler_version_MINOR_digit_6[4]'
  554. # elif COMPILER_VERSION_MINOR == 5
  555.         PRINT *, 'INFO:compiler_version_MINOR_digit_6[5]'
  556. # elif COMPILER_VERSION_MINOR == 6
  557.         PRINT *, 'INFO:compiler_version_MINOR_digit_6[6]'
  558. # elif COMPILER_VERSION_MINOR == 7
  559.         PRINT *, 'INFO:compiler_version_MINOR_digit_6[7]'
  560. # elif COMPILER_VERSION_MINOR == 8
  561.         PRINT *, 'INFO:compiler_version_MINOR_digit_6[8]'
  562. # elif COMPILER_VERSION_MINOR == 9
  563.         PRINT *, 'INFO:compiler_version_MINOR_digit_6[9]'
  564. # endif
  565.  
  566. # undef DEC
  567. # undef HEX
  568. # define DEC(n) DEC_7(n)
  569. # define HEX(n) HEX_7(n)
  570. # if COMPILER_VERSION_MINOR == 0
  571.         PRINT *, 'INFO:compiler_version_MINOR_digit_7[0]'
  572. # elif COMPILER_VERSION_MINOR == 1
  573.         PRINT *, 'INFO:compiler_version_MINOR_digit_7[1]'
  574. # elif COMPILER_VERSION_MINOR == 2
  575.         PRINT *, 'INFO:compiler_version_MINOR_digit_7[2]'
  576. # elif COMPILER_VERSION_MINOR == 3
  577.         PRINT *, 'INFO:compiler_version_MINOR_digit_7[3]'
  578. # elif COMPILER_VERSION_MINOR == 4
  579.         PRINT *, 'INFO:compiler_version_MINOR_digit_7[4]'
  580. # elif COMPILER_VERSION_MINOR == 5
  581.         PRINT *, 'INFO:compiler_version_MINOR_digit_7[5]'
  582. # elif COMPILER_VERSION_MINOR == 6
  583.         PRINT *, 'INFO:compiler_version_MINOR_digit_7[6]'
  584. # elif COMPILER_VERSION_MINOR == 7
  585.         PRINT *, 'INFO:compiler_version_MINOR_digit_7[7]'
  586. # elif COMPILER_VERSION_MINOR == 8
  587.         PRINT *, 'INFO:compiler_version_MINOR_digit_7[8]'
  588. # elif COMPILER_VERSION_MINOR == 9
  589.         PRINT *, 'INFO:compiler_version_MINOR_digit_7[9]'
  590. # endif
  591.  
  592. # undef DEC
  593. # undef HEX
  594. # define DEC(n) DEC_8(n)
  595. # define HEX(n) HEX_8(n)
  596. # if COMPILER_VERSION_MINOR == 0
  597.         PRINT *, 'INFO:compiler_version_MINOR_digit_8[0]'
  598. # elif COMPILER_VERSION_MINOR == 1
  599.         PRINT *, 'INFO:compiler_version_MINOR_digit_8[1]'
  600. # elif COMPILER_VERSION_MINOR == 2
  601.         PRINT *, 'INFO:compiler_version_MINOR_digit_8[2]'
  602. # elif COMPILER_VERSION_MINOR == 3
  603.         PRINT *, 'INFO:compiler_version_MINOR_digit_8[3]'
  604. # elif COMPILER_VERSION_MINOR == 4
  605.         PRINT *, 'INFO:compiler_version_MINOR_digit_8[4]'
  606. # elif COMPILER_VERSION_MINOR == 5
  607.         PRINT *, 'INFO:compiler_version_MINOR_digit_8[5]'
  608. # elif COMPILER_VERSION_MINOR == 6
  609.         PRINT *, 'INFO:compiler_version_MINOR_digit_8[6]'
  610. # elif COMPILER_VERSION_MINOR == 7
  611.         PRINT *, 'INFO:compiler_version_MINOR_digit_8[7]'
  612. # elif COMPILER_VERSION_MINOR == 8
  613.         PRINT *, 'INFO:compiler_version_MINOR_digit_8[8]'
  614. # elif COMPILER_VERSION_MINOR == 9
  615.         PRINT *, 'INFO:compiler_version_MINOR_digit_8[9]'
  616. # endif
  617.  
  618. #endif
  619. #if defined(COMPILER_VERSION_PATCH)
  620. # undef DEC
  621. # undef HEX
  622. # define DEC(n) DEC_1(n)
  623. # define HEX(n) HEX_1(n)
  624. # if COMPILER_VERSION_PATCH == 0
  625.         PRINT *, 'INFO:compiler_version_PATCH_digit_1[0]'
  626. # elif COMPILER_VERSION_PATCH == 1
  627.         PRINT *, 'INFO:compiler_version_PATCH_digit_1[1]'
  628. # elif COMPILER_VERSION_PATCH == 2
  629.         PRINT *, 'INFO:compiler_version_PATCH_digit_1[2]'
  630. # elif COMPILER_VERSION_PATCH == 3
  631.         PRINT *, 'INFO:compiler_version_PATCH_digit_1[3]'
  632. # elif COMPILER_VERSION_PATCH == 4
  633.         PRINT *, 'INFO:compiler_version_PATCH_digit_1[4]'
  634. # elif COMPILER_VERSION_PATCH == 5
  635.         PRINT *, 'INFO:compiler_version_PATCH_digit_1[5]'
  636. # elif COMPILER_VERSION_PATCH == 6
  637.         PRINT *, 'INFO:compiler_version_PATCH_digit_1[6]'
  638. # elif COMPILER_VERSION_PATCH == 7
  639.         PRINT *, 'INFO:compiler_version_PATCH_digit_1[7]'
  640. # elif COMPILER_VERSION_PATCH == 8
  641.         PRINT *, 'INFO:compiler_version_PATCH_digit_1[8]'
  642. # elif COMPILER_VERSION_PATCH == 9
  643.         PRINT *, 'INFO:compiler_version_PATCH_digit_1[9]'
  644. # endif
  645.  
  646. # undef DEC
  647. # undef HEX
  648. # define DEC(n) DEC_2(n)
  649. # define HEX(n) HEX_2(n)
  650. # if COMPILER_VERSION_PATCH == 0
  651.         PRINT *, 'INFO:compiler_version_PATCH_digit_2[0]'
  652. # elif COMPILER_VERSION_PATCH == 1
  653.         PRINT *, 'INFO:compiler_version_PATCH_digit_2[1]'
  654. # elif COMPILER_VERSION_PATCH == 2
  655.         PRINT *, 'INFO:compiler_version_PATCH_digit_2[2]'
  656. # elif COMPILER_VERSION_PATCH == 3
  657.         PRINT *, 'INFO:compiler_version_PATCH_digit_2[3]'
  658. # elif COMPILER_VERSION_PATCH == 4
  659.         PRINT *, 'INFO:compiler_version_PATCH_digit_2[4]'
  660. # elif COMPILER_VERSION_PATCH == 5
  661.         PRINT *, 'INFO:compiler_version_PATCH_digit_2[5]'
  662. # elif COMPILER_VERSION_PATCH == 6
  663.         PRINT *, 'INFO:compiler_version_PATCH_digit_2[6]'
  664. # elif COMPILER_VERSION_PATCH == 7
  665.         PRINT *, 'INFO:compiler_version_PATCH_digit_2[7]'
  666. # elif COMPILER_VERSION_PATCH == 8
  667.         PRINT *, 'INFO:compiler_version_PATCH_digit_2[8]'
  668. # elif COMPILER_VERSION_PATCH == 9
  669.         PRINT *, 'INFO:compiler_version_PATCH_digit_2[9]'
  670. # endif
  671.  
  672. # undef DEC
  673. # undef HEX
  674. # define DEC(n) DEC_3(n)
  675. # define HEX(n) HEX_3(n)
  676. # if COMPILER_VERSION_PATCH == 0
  677.         PRINT *, 'INFO:compiler_version_PATCH_digit_3[0]'
  678. # elif COMPILER_VERSION_PATCH == 1
  679.         PRINT *, 'INFO:compiler_version_PATCH_digit_3[1]'
  680. # elif COMPILER_VERSION_PATCH == 2
  681.         PRINT *, 'INFO:compiler_version_PATCH_digit_3[2]'
  682. # elif COMPILER_VERSION_PATCH == 3
  683.         PRINT *, 'INFO:compiler_version_PATCH_digit_3[3]'
  684. # elif COMPILER_VERSION_PATCH == 4
  685.         PRINT *, 'INFO:compiler_version_PATCH_digit_3[4]'
  686. # elif COMPILER_VERSION_PATCH == 5
  687.         PRINT *, 'INFO:compiler_version_PATCH_digit_3[5]'
  688. # elif COMPILER_VERSION_PATCH == 6
  689.         PRINT *, 'INFO:compiler_version_PATCH_digit_3[6]'
  690. # elif COMPILER_VERSION_PATCH == 7
  691.         PRINT *, 'INFO:compiler_version_PATCH_digit_3[7]'
  692. # elif COMPILER_VERSION_PATCH == 8
  693.         PRINT *, 'INFO:compiler_version_PATCH_digit_3[8]'
  694. # elif COMPILER_VERSION_PATCH == 9
  695.         PRINT *, 'INFO:compiler_version_PATCH_digit_3[9]'
  696. # endif
  697.  
  698. # undef DEC
  699. # undef HEX
  700. # define DEC(n) DEC_4(n)
  701. # define HEX(n) HEX_4(n)
  702. # if COMPILER_VERSION_PATCH == 0
  703.         PRINT *, 'INFO:compiler_version_PATCH_digit_4[0]'
  704. # elif COMPILER_VERSION_PATCH == 1
  705.         PRINT *, 'INFO:compiler_version_PATCH_digit_4[1]'
  706. # elif COMPILER_VERSION_PATCH == 2
  707.         PRINT *, 'INFO:compiler_version_PATCH_digit_4[2]'
  708. # elif COMPILER_VERSION_PATCH == 3
  709.         PRINT *, 'INFO:compiler_version_PATCH_digit_4[3]'
  710. # elif COMPILER_VERSION_PATCH == 4
  711.         PRINT *, 'INFO:compiler_version_PATCH_digit_4[4]'
  712. # elif COMPILER_VERSION_PATCH == 5
  713.         PRINT *, 'INFO:compiler_version_PATCH_digit_4[5]'
  714. # elif COMPILER_VERSION_PATCH == 6
  715.         PRINT *, 'INFO:compiler_version_PATCH_digit_4[6]'
  716. # elif COMPILER_VERSION_PATCH == 7
  717.         PRINT *, 'INFO:compiler_version_PATCH_digit_4[7]'
  718. # elif COMPILER_VERSION_PATCH == 8
  719.         PRINT *, 'INFO:compiler_version_PATCH_digit_4[8]'
  720. # elif COMPILER_VERSION_PATCH == 9
  721.         PRINT *, 'INFO:compiler_version_PATCH_digit_4[9]'
  722. # endif
  723.  
  724. # undef DEC
  725. # undef HEX
  726. # define DEC(n) DEC_5(n)
  727. # define HEX(n) HEX_5(n)
  728. # if COMPILER_VERSION_PATCH == 0
  729.         PRINT *, 'INFO:compiler_version_PATCH_digit_5[0]'
  730. # elif COMPILER_VERSION_PATCH == 1
  731.         PRINT *, 'INFO:compiler_version_PATCH_digit_5[1]'
  732. # elif COMPILER_VERSION_PATCH == 2
  733.         PRINT *, 'INFO:compiler_version_PATCH_digit_5[2]'
  734. # elif COMPILER_VERSION_PATCH == 3
  735.         PRINT *, 'INFO:compiler_version_PATCH_digit_5[3]'
  736. # elif COMPILER_VERSION_PATCH == 4
  737.         PRINT *, 'INFO:compiler_version_PATCH_digit_5[4]'
  738. # elif COMPILER_VERSION_PATCH == 5
  739.         PRINT *, 'INFO:compiler_version_PATCH_digit_5[5]'
  740. # elif COMPILER_VERSION_PATCH == 6
  741.         PRINT *, 'INFO:compiler_version_PATCH_digit_5[6]'
  742. # elif COMPILER_VERSION_PATCH == 7
  743.         PRINT *, 'INFO:compiler_version_PATCH_digit_5[7]'
  744. # elif COMPILER_VERSION_PATCH == 8
  745.         PRINT *, 'INFO:compiler_version_PATCH_digit_5[8]'
  746. # elif COMPILER_VERSION_PATCH == 9
  747.         PRINT *, 'INFO:compiler_version_PATCH_digit_5[9]'
  748. # endif
  749.  
  750. # undef DEC
  751. # undef HEX
  752. # define DEC(n) DEC_6(n)
  753. # define HEX(n) HEX_6(n)
  754. # if COMPILER_VERSION_PATCH == 0
  755.         PRINT *, 'INFO:compiler_version_PATCH_digit_6[0]'
  756. # elif COMPILER_VERSION_PATCH == 1
  757.         PRINT *, 'INFO:compiler_version_PATCH_digit_6[1]'
  758. # elif COMPILER_VERSION_PATCH == 2
  759.         PRINT *, 'INFO:compiler_version_PATCH_digit_6[2]'
  760. # elif COMPILER_VERSION_PATCH == 3
  761.         PRINT *, 'INFO:compiler_version_PATCH_digit_6[3]'
  762. # elif COMPILER_VERSION_PATCH == 4
  763.         PRINT *, 'INFO:compiler_version_PATCH_digit_6[4]'
  764. # elif COMPILER_VERSION_PATCH == 5
  765.         PRINT *, 'INFO:compiler_version_PATCH_digit_6[5]'
  766. # elif COMPILER_VERSION_PATCH == 6
  767.         PRINT *, 'INFO:compiler_version_PATCH_digit_6[6]'
  768. # elif COMPILER_VERSION_PATCH == 7
  769.         PRINT *, 'INFO:compiler_version_PATCH_digit_6[7]'
  770. # elif COMPILER_VERSION_PATCH == 8
  771.         PRINT *, 'INFO:compiler_version_PATCH_digit_6[8]'
  772. # elif COMPILER_VERSION_PATCH == 9
  773.         PRINT *, 'INFO:compiler_version_PATCH_digit_6[9]'
  774. # endif
  775.  
  776. # undef DEC
  777. # undef HEX
  778. # define DEC(n) DEC_7(n)
  779. # define HEX(n) HEX_7(n)
  780. # if COMPILER_VERSION_PATCH == 0
  781.         PRINT *, 'INFO:compiler_version_PATCH_digit_7[0]'
  782. # elif COMPILER_VERSION_PATCH == 1
  783.         PRINT *, 'INFO:compiler_version_PATCH_digit_7[1]'
  784. # elif COMPILER_VERSION_PATCH == 2
  785.         PRINT *, 'INFO:compiler_version_PATCH_digit_7[2]'
  786. # elif COMPILER_VERSION_PATCH == 3
  787.         PRINT *, 'INFO:compiler_version_PATCH_digit_7[3]'
  788. # elif COMPILER_VERSION_PATCH == 4
  789.         PRINT *, 'INFO:compiler_version_PATCH_digit_7[4]'
  790. # elif COMPILER_VERSION_PATCH == 5
  791.         PRINT *, 'INFO:compiler_version_PATCH_digit_7[5]'
  792. # elif COMPILER_VERSION_PATCH == 6
  793.         PRINT *, 'INFO:compiler_version_PATCH_digit_7[6]'
  794. # elif COMPILER_VERSION_PATCH == 7
  795.         PRINT *, 'INFO:compiler_version_PATCH_digit_7[7]'
  796. # elif COMPILER_VERSION_PATCH == 8
  797.         PRINT *, 'INFO:compiler_version_PATCH_digit_7[8]'
  798. # elif COMPILER_VERSION_PATCH == 9
  799.         PRINT *, 'INFO:compiler_version_PATCH_digit_7[9]'
  800. # endif
  801.  
  802. # undef DEC
  803. # undef HEX
  804. # define DEC(n) DEC_8(n)
  805. # define HEX(n) HEX_8(n)
  806. # if COMPILER_VERSION_PATCH == 0
  807.         PRINT *, 'INFO:compiler_version_PATCH_digit_8[0]'
  808. # elif COMPILER_VERSION_PATCH == 1
  809.         PRINT *, 'INFO:compiler_version_PATCH_digit_8[1]'
  810. # elif COMPILER_VERSION_PATCH == 2
  811.         PRINT *, 'INFO:compiler_version_PATCH_digit_8[2]'
  812. # elif COMPILER_VERSION_PATCH == 3
  813.         PRINT *, 'INFO:compiler_version_PATCH_digit_8[3]'
  814. # elif COMPILER_VERSION_PATCH == 4
  815.         PRINT *, 'INFO:compiler_version_PATCH_digit_8[4]'
  816. # elif COMPILER_VERSION_PATCH == 5
  817.         PRINT *, 'INFO:compiler_version_PATCH_digit_8[5]'
  818. # elif COMPILER_VERSION_PATCH == 6
  819.         PRINT *, 'INFO:compiler_version_PATCH_digit_8[6]'
  820. # elif COMPILER_VERSION_PATCH == 7
  821.         PRINT *, 'INFO:compiler_version_PATCH_digit_8[7]'
  822. # elif COMPILER_VERSION_PATCH == 8
  823.         PRINT *, 'INFO:compiler_version_PATCH_digit_8[8]'
  824. # elif COMPILER_VERSION_PATCH == 9
  825.         PRINT *, 'INFO:compiler_version_PATCH_digit_8[9]'
  826. # endif
  827.  
  828. #endif
  829. #if defined(COMPILER_VERSION_TWEAK)
  830. # undef DEC
  831. # undef HEX
  832. # define DEC(n) DEC_1(n)
  833. # define HEX(n) HEX_1(n)
  834. # if COMPILER_VERSION_TWEAK == 0
  835.         PRINT *, 'INFO:compiler_version_TWEAK_digit_1[0]'
  836. # elif COMPILER_VERSION_TWEAK == 1
  837.         PRINT *, 'INFO:compiler_version_TWEAK_digit_1[1]'
  838. # elif COMPILER_VERSION_TWEAK == 2
  839.         PRINT *, 'INFO:compiler_version_TWEAK_digit_1[2]'
  840. # elif COMPILER_VERSION_TWEAK == 3
  841.         PRINT *, 'INFO:compiler_version_TWEAK_digit_1[3]'
  842. # elif COMPILER_VERSION_TWEAK == 4
  843.         PRINT *, 'INFO:compiler_version_TWEAK_digit_1[4]'
  844. # elif COMPILER_VERSION_TWEAK == 5
  845.         PRINT *, 'INFO:compiler_version_TWEAK_digit_1[5]'
  846. # elif COMPILER_VERSION_TWEAK == 6
  847.         PRINT *, 'INFO:compiler_version_TWEAK_digit_1[6]'
  848. # elif COMPILER_VERSION_TWEAK == 7
  849.         PRINT *, 'INFO:compiler_version_TWEAK_digit_1[7]'
  850. # elif COMPILER_VERSION_TWEAK == 8
  851.         PRINT *, 'INFO:compiler_version_TWEAK_digit_1[8]'
  852. # elif COMPILER_VERSION_TWEAK == 9
  853.         PRINT *, 'INFO:compiler_version_TWEAK_digit_1[9]'
  854. # endif
  855.  
  856. # undef DEC
  857. # undef HEX
  858. # define DEC(n) DEC_2(n)
  859. # define HEX(n) HEX_2(n)
  860. # if COMPILER_VERSION_TWEAK == 0
  861.         PRINT *, 'INFO:compiler_version_TWEAK_digit_2[0]'
  862. # elif COMPILER_VERSION_TWEAK == 1
  863.         PRINT *, 'INFO:compiler_version_TWEAK_digit_2[1]'
  864. # elif COMPILER_VERSION_TWEAK == 2
  865.         PRINT *, 'INFO:compiler_version_TWEAK_digit_2[2]'
  866. # elif COMPILER_VERSION_TWEAK == 3
  867.         PRINT *, 'INFO:compiler_version_TWEAK_digit_2[3]'
  868. # elif COMPILER_VERSION_TWEAK == 4
  869.         PRINT *, 'INFO:compiler_version_TWEAK_digit_2[4]'
  870. # elif COMPILER_VERSION_TWEAK == 5
  871.         PRINT *, 'INFO:compiler_version_TWEAK_digit_2[5]'
  872. # elif COMPILER_VERSION_TWEAK == 6
  873.         PRINT *, 'INFO:compiler_version_TWEAK_digit_2[6]'
  874. # elif COMPILER_VERSION_TWEAK == 7
  875.         PRINT *, 'INFO:compiler_version_TWEAK_digit_2[7]'
  876. # elif COMPILER_VERSION_TWEAK == 8
  877.         PRINT *, 'INFO:compiler_version_TWEAK_digit_2[8]'
  878. # elif COMPILER_VERSION_TWEAK == 9
  879.         PRINT *, 'INFO:compiler_version_TWEAK_digit_2[9]'
  880. # endif
  881.  
  882. # undef DEC
  883. # undef HEX
  884. # define DEC(n) DEC_3(n)
  885. # define HEX(n) HEX_3(n)
  886. # if COMPILER_VERSION_TWEAK == 0
  887.         PRINT *, 'INFO:compiler_version_TWEAK_digit_3[0]'
  888. # elif COMPILER_VERSION_TWEAK == 1
  889.         PRINT *, 'INFO:compiler_version_TWEAK_digit_3[1]'
  890. # elif COMPILER_VERSION_TWEAK == 2
  891.         PRINT *, 'INFO:compiler_version_TWEAK_digit_3[2]'
  892. # elif COMPILER_VERSION_TWEAK == 3
  893.         PRINT *, 'INFO:compiler_version_TWEAK_digit_3[3]'
  894. # elif COMPILER_VERSION_TWEAK == 4
  895.         PRINT *, 'INFO:compiler_version_TWEAK_digit_3[4]'
  896. # elif COMPILER_VERSION_TWEAK == 5
  897.         PRINT *, 'INFO:compiler_version_TWEAK_digit_3[5]'
  898. # elif COMPILER_VERSION_TWEAK == 6
  899.         PRINT *, 'INFO:compiler_version_TWEAK_digit_3[6]'
  900. # elif COMPILER_VERSION_TWEAK == 7
  901.         PRINT *, 'INFO:compiler_version_TWEAK_digit_3[7]'
  902. # elif COMPILER_VERSION_TWEAK == 8
  903.         PRINT *, 'INFO:compiler_version_TWEAK_digit_3[8]'
  904. # elif COMPILER_VERSION_TWEAK == 9
  905.         PRINT *, 'INFO:compiler_version_TWEAK_digit_3[9]'
  906. # endif
  907.  
  908. # undef DEC
  909. # undef HEX
  910. # define DEC(n) DEC_4(n)
  911. # define HEX(n) HEX_4(n)
  912. # if COMPILER_VERSION_TWEAK == 0
  913.         PRINT *, 'INFO:compiler_version_TWEAK_digit_4[0]'
  914. # elif COMPILER_VERSION_TWEAK == 1
  915.         PRINT *, 'INFO:compiler_version_TWEAK_digit_4[1]'
  916. # elif COMPILER_VERSION_TWEAK == 2
  917.         PRINT *, 'INFO:compiler_version_TWEAK_digit_4[2]'
  918. # elif COMPILER_VERSION_TWEAK == 3
  919.         PRINT *, 'INFO:compiler_version_TWEAK_digit_4[3]'
  920. # elif COMPILER_VERSION_TWEAK == 4
  921.         PRINT *, 'INFO:compiler_version_TWEAK_digit_4[4]'
  922. # elif COMPILER_VERSION_TWEAK == 5
  923.         PRINT *, 'INFO:compiler_version_TWEAK_digit_4[5]'
  924. # elif COMPILER_VERSION_TWEAK == 6
  925.         PRINT *, 'INFO:compiler_version_TWEAK_digit_4[6]'
  926. # elif COMPILER_VERSION_TWEAK == 7
  927.         PRINT *, 'INFO:compiler_version_TWEAK_digit_4[7]'
  928. # elif COMPILER_VERSION_TWEAK == 8
  929.         PRINT *, 'INFO:compiler_version_TWEAK_digit_4[8]'
  930. # elif COMPILER_VERSION_TWEAK == 9
  931.         PRINT *, 'INFO:compiler_version_TWEAK_digit_4[9]'
  932. # endif
  933.  
  934. # undef DEC
  935. # undef HEX
  936. # define DEC(n) DEC_5(n)
  937. # define HEX(n) HEX_5(n)
  938. # if COMPILER_VERSION_TWEAK == 0
  939.         PRINT *, 'INFO:compiler_version_TWEAK_digit_5[0]'
  940. # elif COMPILER_VERSION_TWEAK == 1
  941.         PRINT *, 'INFO:compiler_version_TWEAK_digit_5[1]'
  942. # elif COMPILER_VERSION_TWEAK == 2
  943.         PRINT *, 'INFO:compiler_version_TWEAK_digit_5[2]'
  944. # elif COMPILER_VERSION_TWEAK == 3
  945.         PRINT *, 'INFO:compiler_version_TWEAK_digit_5[3]'
  946. # elif COMPILER_VERSION_TWEAK == 4
  947.         PRINT *, 'INFO:compiler_version_TWEAK_digit_5[4]'
  948. # elif COMPILER_VERSION_TWEAK == 5
  949.         PRINT *, 'INFO:compiler_version_TWEAK_digit_5[5]'
  950. # elif COMPILER_VERSION_TWEAK == 6
  951.         PRINT *, 'INFO:compiler_version_TWEAK_digit_5[6]'
  952. # elif COMPILER_VERSION_TWEAK == 7
  953.         PRINT *, 'INFO:compiler_version_TWEAK_digit_5[7]'
  954. # elif COMPILER_VERSION_TWEAK == 8
  955.         PRINT *, 'INFO:compiler_version_TWEAK_digit_5[8]'
  956. # elif COMPILER_VERSION_TWEAK == 9
  957.         PRINT *, 'INFO:compiler_version_TWEAK_digit_5[9]'
  958. # endif
  959.  
  960. # undef DEC
  961. # undef HEX
  962. # define DEC(n) DEC_6(n)
  963. # define HEX(n) HEX_6(n)
  964. # if COMPILER_VERSION_TWEAK == 0
  965.         PRINT *, 'INFO:compiler_version_TWEAK_digit_6[0]'
  966. # elif COMPILER_VERSION_TWEAK == 1
  967.         PRINT *, 'INFO:compiler_version_TWEAK_digit_6[1]'
  968. # elif COMPILER_VERSION_TWEAK == 2
  969.         PRINT *, 'INFO:compiler_version_TWEAK_digit_6[2]'
  970. # elif COMPILER_VERSION_TWEAK == 3
  971.         PRINT *, 'INFO:compiler_version_TWEAK_digit_6[3]'
  972. # elif COMPILER_VERSION_TWEAK == 4
  973.         PRINT *, 'INFO:compiler_version_TWEAK_digit_6[4]'
  974. # elif COMPILER_VERSION_TWEAK == 5
  975.         PRINT *, 'INFO:compiler_version_TWEAK_digit_6[5]'
  976. # elif COMPILER_VERSION_TWEAK == 6
  977.         PRINT *, 'INFO:compiler_version_TWEAK_digit_6[6]'
  978. # elif COMPILER_VERSION_TWEAK == 7
  979.         PRINT *, 'INFO:compiler_version_TWEAK_digit_6[7]'
  980. # elif COMPILER_VERSION_TWEAK == 8
  981.         PRINT *, 'INFO:compiler_version_TWEAK_digit_6[8]'
  982. # elif COMPILER_VERSION_TWEAK == 9
  983.         PRINT *, 'INFO:compiler_version_TWEAK_digit_6[9]'
  984. # endif
  985.  
  986. # undef DEC
  987. # undef HEX
  988. # define DEC(n) DEC_7(n)
  989. # define HEX(n) HEX_7(n)
  990. # if COMPILER_VERSION_TWEAK == 0
  991.         PRINT *, 'INFO:compiler_version_TWEAK_digit_7[0]'
  992. # elif COMPILER_VERSION_TWEAK == 1
  993.         PRINT *, 'INFO:compiler_version_TWEAK_digit_7[1]'
  994. # elif COMPILER_VERSION_TWEAK == 2
  995.         PRINT *, 'INFO:compiler_version_TWEAK_digit_7[2]'
  996. # elif COMPILER_VERSION_TWEAK == 3
  997.         PRINT *, 'INFO:compiler_version_TWEAK_digit_7[3]'
  998. # elif COMPILER_VERSION_TWEAK == 4
  999.         PRINT *, 'INFO:compiler_version_TWEAK_digit_7[4]'
  1000. # elif COMPILER_VERSION_TWEAK == 5
  1001.         PRINT *, 'INFO:compiler_version_TWEAK_digit_7[5]'
  1002. # elif COMPILER_VERSION_TWEAK == 6
  1003.         PRINT *, 'INFO:compiler_version_TWEAK_digit_7[6]'
  1004. # elif COMPILER_VERSION_TWEAK == 7
  1005.         PRINT *, 'INFO:compiler_version_TWEAK_digit_7[7]'
  1006. # elif COMPILER_VERSION_TWEAK == 8
  1007.         PRINT *, 'INFO:compiler_version_TWEAK_digit_7[8]'
  1008. # elif COMPILER_VERSION_TWEAK == 9
  1009.         PRINT *, 'INFO:compiler_version_TWEAK_digit_7[9]'
  1010. # endif
  1011.  
  1012. # undef DEC
  1013. # undef HEX
  1014. # define DEC(n) DEC_8(n)
  1015. # define HEX(n) HEX_8(n)
  1016. # if COMPILER_VERSION_TWEAK == 0
  1017.         PRINT *, 'INFO:compiler_version_TWEAK_digit_8[0]'
  1018. # elif COMPILER_VERSION_TWEAK == 1
  1019.         PRINT *, 'INFO:compiler_version_TWEAK_digit_8[1]'
  1020. # elif COMPILER_VERSION_TWEAK == 2
  1021.         PRINT *, 'INFO:compiler_version_TWEAK_digit_8[2]'
  1022. # elif COMPILER_VERSION_TWEAK == 3
  1023.         PRINT *, 'INFO:compiler_version_TWEAK_digit_8[3]'
  1024. # elif COMPILER_VERSION_TWEAK == 4
  1025.         PRINT *, 'INFO:compiler_version_TWEAK_digit_8[4]'
  1026. # elif COMPILER_VERSION_TWEAK == 5
  1027.         PRINT *, 'INFO:compiler_version_TWEAK_digit_8[5]'
  1028. # elif COMPILER_VERSION_TWEAK == 6
  1029.         PRINT *, 'INFO:compiler_version_TWEAK_digit_8[6]'
  1030. # elif COMPILER_VERSION_TWEAK == 7
  1031.         PRINT *, 'INFO:compiler_version_TWEAK_digit_8[7]'
  1032. # elif COMPILER_VERSION_TWEAK == 8
  1033.         PRINT *, 'INFO:compiler_version_TWEAK_digit_8[8]'
  1034. # elif COMPILER_VERSION_TWEAK == 9
  1035.         PRINT *, 'INFO:compiler_version_TWEAK_digit_8[9]'
  1036. # endif
  1037.  
  1038. #endif
  1039.  
  1040.       END
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!