Modules/CMakeFortranCompilerABI.F90

   1 program CMakeFortranCompilerABI
   2
   3 implicit none
   4
   5 integer :: i(1) = 0
   6 where (i==0) i=1
   7 if (any(i/=1)) stop 1
   8 ! showing Fortran 90 syntax is OK
   9
  10 #if 0
  11 ! Address Size
  12 #endif
  13 #if defined(_LP64)
  14 PRINT *, 'INFO:sizeof_dptr[8]'
  15 #elif defined(_M_IA64)
  16 PRINT *, 'INFO:sizeof_dptr[8]'
  17 #elif defined(_M_X64)
  18 PRINT *, 'INFO:sizeof_dptr[8]'
  19 #elif defined(_M_AMD64)
  20 PRINT *, 'INFO:sizeof_dptr[8]'
  21 #elif defined(__x86_64__)
  22 PRINT *, 'INFO:sizeof_dptr[8]'
  23
  24 #elif defined(_ILP32)
  25 PRINT *, 'INFO:sizeof_dptr[4]'
  26 #elif defined(_M_IX86)
  27 PRINT *, 'INFO:sizeof_dptr[4]'
  28 #elif defined(__i386__)
  29 PRINT *, 'INFO:sizeof_dptr[4]'
  30
  31 #elif defined(__SIZEOF_POINTER__) && __SIZEOF_POINTER__ == 8
  32 PRINT *, 'INFO:sizeof_dptr[8]'
  33 #elif defined(__SIZEOF_POINTER__) && __SIZEOF_POINTER__ == 4
  34 PRINT *, 'INFO:sizeof_dptr[4]'
  35 #elif defined(__SIZEOF_SIZE_T__) && __SIZEOF_SIZE_T__ == 8
  36 PRINT *, 'INFO:sizeof_dptr[8]'
  37 #elif defined(__SIZEOF_SIZE_T__) && __SIZEOF_SIZE_T__ == 4
  38 PRINT *, 'INFO:sizeof_dptr[4]'
  39 #endif
  40
  41 #if 0
  42 ! Application Binary Interface
  43 #endif
  44 #if defined(__ELF__)
  45 PRINT *, 'INFO:abi[ELF]'
  46 #endif
  47 PRINT *, 'ABI Detection'
  48 end program