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