|
|
@@ -68,8 +68,14 @@
|
|
|
PRINT *, 'INFO:compiler[zOS]'
|
|
|
# elif __IBMC__ >= 800
|
|
|
PRINT *, 'INFO:compiler[XL]'
|
|
|
+# define COMPILER_VERSION_MAJOR DEC(__IBMC__/100)
|
|
|
+# define COMPILER_VERSION_MINOR DEC(__IBMC__/10 % 10)
|
|
|
+# define COMPILER_VERSION_PATCH DEC(__IBMC__ % 10)
|
|
|
# else
|
|
|
PRINT *, 'INFO:compiler[VisualAge]'
|
|
|
+# define COMPILER_VERSION_MAJOR DEC(__IBMC__/100)
|
|
|
+# define COMPILER_VERSION_MINOR DEC(__IBMC__/10 % 10)
|
|
|
+# define COMPILER_VERSION_PATCH DEC(__IBMC__ % 10)
|
|
|
# endif
|
|
|
#elif defined(__PGI)
|
|
|
PRINT *, 'INFO:compiler[PGI]'
|