Fortran: Improve pointer size detection in gfortran on MinGW
In commit ecd84147
(Fortran: Detect pointer size in gfortran on MinGW,
2011-11-29) we started testing for __SIZEOF_POINTER__ but not all GNU
Fortran compilers define this. Check also for __SIZEOF_SIZE_T__ which
at least one version of gfortran defines without also defining
__SIZEOF_POINTER__.
This commit is contained in:
parent
ce598cc838
commit
5da1580ada
|
@ -20,6 +20,10 @@
|
||||||
PRINT *, 'INFO:sizeof_dptr[8]'
|
PRINT *, 'INFO:sizeof_dptr[8]'
|
||||||
#elif defined(__SIZEOF_POINTER__) && __SIZEOF_POINTER__ == 4
|
#elif defined(__SIZEOF_POINTER__) && __SIZEOF_POINTER__ == 4
|
||||||
PRINT *, 'INFO:sizeof_dptr[4]'
|
PRINT *, 'INFO:sizeof_dptr[4]'
|
||||||
|
#elif defined(__SIZEOF_SIZE_T__) && __SIZEOF_SIZE_T__ == 8
|
||||||
|
PRINT *, 'INFO:sizeof_dptr[8]'
|
||||||
|
#elif defined(__SIZEOF_SIZE_T__) && __SIZEOF_SIZE_T__ == 4
|
||||||
|
PRINT *, 'INFO:sizeof_dptr[4]'
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#if 0
|
#if 0
|
||||||
|
|
Loading…
Reference in New Issue