lapack-netlib/CMAKE/FortranMangling.cmake

   1 # Macro that defines variables describing the Fortran name mangling
   2 # convention
   3 #
   4 # Sets the following outputs on success:
   5 #
   6 #  INTFACE
   7 #    Add_
   8 #    NoChange
   9 #    f77IsF2C
  10 #    UpCase
  11 #
  12 macro(FORTRAN_MANGLING CDEFS)
  13 MESSAGE(STATUS "=========")
  14   GET_FILENAME_COMPONENT(F77_NAME ${CMAKE_Fortran_COMPILER} NAME)
  15   GET_FILENAME_COMPONENT(F77_PATH ${CMAKE_Fortran_COMPILER} PATH)
  16   SET(F77 ${F77_NAME} CACHE INTERNAL "Name of the fortran compiler.")
  17
  18   IF(${F77} STREQUAL "ifort.exe")
  19     #settings for Intel Fortran
  20     SET(F77_OPTION_COMPILE "/c" CACHE INTERNAL
  21       "Fortran compiler option for compiling without linking.")
  22     SET(F77_OUTPUT_OBJ "/Fo" CACHE INTERNAL
  23       "Fortran compiler option for setting object file name.")
  24     SET(F77_OUTPUT_EXE "/Fe" CACHE INTERNAL
  25       "Fortran compiler option for setting executable file name.")
  26   ELSE(${F77} STREQUAL "ifort.exe")
  27     # in other case, let user specify their fortran configrations.
  28     SET(F77_OPTION_COMPILE "-c" CACHE STRING
  29       "Fortran compiler option for compiling without linking.")
  30     SET(F77_OUTPUT_OBJ "-o" CACHE STRING
  31       "Fortran compiler option for setting object file name.")
  32     SET(F77_OUTPUT_EXE "-o" CACHE STRING
  33       "Fortran compiler option for setting executable file name.")
  34     SET(F77_LIB_PATH "" CACHE PATH
  35       "Library path for the fortran compiler")
  36     SET(F77_INCLUDE_PATH "" CACHE PATH
  37       "Include path for the fortran compiler")
  38   ENDIF(${F77} STREQUAL "ifort.exe")
  39
  40
  41 MESSAGE(STATUS "Testing FORTRAN_MANGLING")
  42
  43 MESSAGE(STATUS "Compiling Finface.f...")
  44
  45     execute_process ( COMMAND  ${CMAKE_Fortran_COMPILER} ${F77_OPTION_COMPILE} ${PROJECT_SOURCE_DIR}/lapacke/mangling/Fintface.f
  46       WORKING_DIRECTORY  ${CMAKE_BINARY_DIR}${CMAKE_FILES_DIRECTORY}/CMakeTmp
  47       OUTPUT_VARIABLE    OUTPUT
  48       RESULT_VARIABLE    RESULT
  49       ERROR_VARIABLE     ERROR)
  50
  51     if(RESULT EQUAL 0)
  52     MESSAGE(STATUS "Compiling Finface.f successful")
  53     else()
  54     MESSAGE(FATAL_ERROR " Compiling Finface.f FAILED")
  55     MESSAGE(FATAL_ERROR " Error:\n ${ERROR}")
  56     endif()
  57
  58 MESSAGE(STATUS "Compiling Cintface.c...")
  59
  60     execute_process ( COMMAND  ${CMAKE_C_COMPILER} ${F77_OPTION_COMPILE} ${PROJECT_SOURCE_DIR}/lapacke/mangling/Cintface.c
  61       WORKING_DIRECTORY  ${CMAKE_BINARY_DIR}${CMAKE_FILES_DIRECTORY}/CMakeTmp
  62       OUTPUT_VARIABLE    OUTPUT
  63       RESULT_VARIABLE    RESULT
  64       ERROR_VARIABLE     ERROR)
  65
  66     if(RESULT EQUAL 0)
  67     MESSAGE(STATUS "Compiling Cintface.c successful")
  68     else()
  69     MESSAGE(FATAL_ERROR " Compiling Cintface.c FAILED")
  70     MESSAGE(FATAL_ERROR " Error:\n ${ERROR}")
  71     endif()
  72
  73 MESSAGE(STATUS "Linking Finface.f and Cintface.c...")
  74
  75     execute_process ( COMMAND  ${CMAKE_Fortran_COMPILER} ${F77_OUTPUT_OBJ} xintface.exe Fintface.o Cintface.o
  76       WORKING_DIRECTORY  ${CMAKE_BINARY_DIR}${CMAKE_FILES_DIRECTORY}/CMakeTmp
  77       OUTPUT_VARIABLE    OUTPUT
  78       RESULT_VARIABLE    RESULT
  79       ERROR_VARIABLE     ERROR)
  80
  81     if(RESULT EQUAL 0)
  82     MESSAGE(STATUS "Linking Finface.f and Cintface.c successful")
  83     else()
  84     MESSAGE(FATAL_ERROR " Linking Finface.f and Cintface.c FAILED")
  85     MESSAGE(FATAL_ERROR " Error:\n ${ERROR}")
  86     endif()
  87
  88 MESSAGE(STATUS "Running ./xintface...")
  89
  90     execute_process ( COMMAND  ./xintface.exe
  91       WORKING_DIRECTORY  ${CMAKE_BINARY_DIR}${CMAKE_FILES_DIRECTORY}/CMakeTmp
  92       RESULT_VARIABLE xintface_RES
  93       OUTPUT_VARIABLE xintface_OUT
  94       ERROR_VARIABLE xintface_ERR)
  95
  96
  97        if (xintface_RES EQUAL 0)
  98           STRING(REPLACE "\n" "" xintface_OUT "${xintface_OUT}")
  99           MESSAGE(STATUS "Fortran MANGLING convention: ${xintface_OUT}")
 100           SET(CDEFS ${xintface_OUT})
 101       else()
 102           MESSAGE(FATAL_ERROR "FORTRAN_MANGLING:ERROR ${xintface_ERR}")
 103       endif()
 104
 105 endmacro(FORTRAN_MANGLING)