mirror of
https://github.com/Detanup01/gbe_fork.git
synced 2024-12-02 23:35:37 +08:00
49 lines
1.1 KiB
Fortran
49 lines
1.1 KiB
Fortran
|
program CMakeFortranCompilerABI
|
||
|
|
|
||
|
|
implicit none
|
||
|
|
|
||
|
|
integer :: i(1) = 0
|
||
|
|
where (i==0) i=1
|
||
|
|
if (any(i/=1)) stop 1
|
||
|
|
! showing Fortran 90 syntax is OK
|
||
|
|
|
||
|
|
#if 0
|
||
|
|
! Address Size
|
||
|
|
#endif
|
||
|
|
#if defined(_LP64)
|
||
|
|
PRINT *, 'INFO:sizeof_dptr[8]'
|
||
|
|
#elif defined(_M_IA64)
|
||
|
|
PRINT *, 'INFO:sizeof_dptr[8]'
|
||
|
|
#elif defined(_M_X64)
|
||
|
|
PRINT *, 'INFO:sizeof_dptr[8]'
|
||
|
|
#elif defined(_M_AMD64)
|
||
|
|
PRINT *, 'INFO:sizeof_dptr[8]'
|
||
|
|
#elif defined(__x86_64__)
|
||
|
|
PRINT *, 'INFO:sizeof_dptr[8]'
|
||
|
|
|
||
|
|
#elif defined(_ILP32)
|
||
|
|
PRINT *, 'INFO:sizeof_dptr[4]'
|
||
|
|
#elif defined(_M_IX86)
|
||
|
|
PRINT *, 'INFO:sizeof_dptr[4]'
|
||
|
|
#elif defined(__i386__)
|
||
|
|
PRINT *, 'INFO:sizeof_dptr[4]'
|
||
|
|
|
||
|
|
#elif defined(__SIZEOF_POINTER__) && __SIZEOF_POINTER__ == 8
|
||
|
|
PRINT *, 'INFO:sizeof_dptr[8]'
|
||
|
|
#elif defined(__SIZEOF_POINTER__) && __SIZEOF_POINTER__ == 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
|
||
|
|
|
||
|
|
#if 0
|
||
|
|
! Application Binary Interface
|
||
|
|
#endif
|
||
|
|
#if defined(__ELF__)
|
||
|
|
PRINT *, 'INFO:abi[ELF]'
|
||
|
|
#endif
|
||
|
|
PRINT *, 'ABI Detection'
|
||
|
|
end program
|