Fortran: Detect pointer size on Intel archs with Oracle Studio 12.4 and below

Revise commit eb8cb2c6c2 (Fortran: Detect pointer size on Intel archs
with PGI, 2014-04-10, v3.0.0-rc4~4^2) to consider more variants of the
architecture macros.
This commit is contained in:
Brad King
2026-06-24 11:32:44 -04:00
parent 11c897d487
commit e13c32153b
2 changed files with 6 additions and 4 deletions
+3 -2
View File
@@ -10,7 +10,8 @@
PRINT *, 'INFO:sizeof_dptr[8]'
#elif defined(_M_AMD64)
PRINT *, 'INFO:sizeof_dptr[8]'
#elif defined(__x86_64__)
#elif defined(__x86_64) || defined(__x86_64__) || defined(__amd64) || \
defined(__amd64__)
PRINT *, 'INFO:sizeof_dptr[8]'
#elif defined(__ppc64__) || defined(__powerpc64__) || defined(__PPC64__)
PRINT *, 'INFO:sizeof_dptr[8]'
@@ -21,7 +22,7 @@
PRINT *, 'INFO:sizeof_dptr[4]'
#elif defined(_M_IX86)
PRINT *, 'INFO:sizeof_dptr[4]'
#elif defined(__i386__)
#elif defined(__i386) || defined(__i386__)
PRINT *, 'INFO:sizeof_dptr[4]'
#elif defined(__ppc__) || defined(__powerpc__) || defined(__PPC__)
PRINT *, 'INFO:sizeof_dptr[4]'
+3 -2
View File
@@ -18,7 +18,8 @@ PRINT *, 'INFO:sizeof_dptr[8]'
PRINT *, 'INFO:sizeof_dptr[8]'
#elif defined(_M_AMD64)
PRINT *, 'INFO:sizeof_dptr[8]'
#elif defined(__x86_64__)
#elif defined(__x86_64) || defined(__x86_64__) || defined(__amd64) || \
defined(__amd64__)
PRINT *, 'INFO:sizeof_dptr[8]'
#elif defined(__ppc64__) || defined(__powerpc64__) || defined(__PPC64__)
PRINT *, 'INFO:sizeof_dptr[8]'
@@ -29,7 +30,7 @@ PRINT *, 'INFO:sizeof_dptr[8]'
PRINT *, 'INFO:sizeof_dptr[4]'
#elif defined(_M_IX86)
PRINT *, 'INFO:sizeof_dptr[4]'
#elif defined(__i386__)
#elif defined(__i386) || defined(__i386__)
PRINT *, 'INFO:sizeof_dptr[4]'
#elif defined(__ppc__) || defined(__powerpc__) || defined(__PPC__)
PRINT *, 'INFO:sizeof_dptr[4]'