Fortran: Detect pointer size on PowerPC archs with PGI

The PGI compiler does not define __SIZEOF_POINTER__ so use the
__ppc64__ or __ppc__ CPU macros to select a pointer size instead.
This commit is contained in:
Brad King
2026-06-24 11:32:44 -04:00
parent e88a4b9f2c
commit 11c897d487
2 changed files with 8 additions and 0 deletions
+4
View File
@@ -12,6 +12,8 @@
PRINT *, 'INFO:sizeof_dptr[8]'
#elif defined(__x86_64__)
PRINT *, 'INFO:sizeof_dptr[8]'
#elif defined(__ppc64__) || defined(__powerpc64__) || defined(__PPC64__)
PRINT *, 'INFO:sizeof_dptr[8]'
#elif defined(__sparcv9) || defined(__sparcv9__) || defined(__sparc64__)
PRINT *, 'INFO:sizeof_dptr[8]'
@@ -21,6 +23,8 @@
PRINT *, 'INFO:sizeof_dptr[4]'
#elif defined(__i386__)
PRINT *, 'INFO:sizeof_dptr[4]'
#elif defined(__ppc__) || defined(__powerpc__) || defined(__PPC__)
PRINT *, 'INFO:sizeof_dptr[4]'
#elif defined(__sparc) || defined(__sparc__)
PRINT *, 'INFO:sizeof_dptr[4]'
+4
View File
@@ -20,6 +20,8 @@ PRINT *, 'INFO:sizeof_dptr[8]'
PRINT *, 'INFO:sizeof_dptr[8]'
#elif defined(__x86_64__)
PRINT *, 'INFO:sizeof_dptr[8]'
#elif defined(__ppc64__) || defined(__powerpc64__) || defined(__PPC64__)
PRINT *, 'INFO:sizeof_dptr[8]'
#elif defined(__sparcv9) || defined(__sparcv9__) || defined(__sparc64__)
PRINT *, 'INFO:sizeof_dptr[8]'
@@ -29,6 +31,8 @@ PRINT *, 'INFO:sizeof_dptr[4]'
PRINT *, 'INFO:sizeof_dptr[4]'
#elif defined(__i386__)
PRINT *, 'INFO:sizeof_dptr[4]'
#elif defined(__ppc__) || defined(__powerpc__) || defined(__PPC__)
PRINT *, 'INFO:sizeof_dptr[4]'
#elif defined(__sparc) || defined(__sparc__)
PRINT *, 'INFO:sizeof_dptr[4]'