使用cmake将C ++和FORTRAN(mpif90)与iso_c_binding耦合

时间:2014-08-07 16:35:22

标签: c++ cmake fortran openmpi fortran-iso-c-binding

我正在尝试编写CMakeLists.txt来耦合使用iso_c_binding调用C ++函数的简单FORTRAN程序。当我使用gfortran作为FORTRAN编译器时,代码工作正常,但当我切换到openMPI(mpif90)而不是gfortran时,我收到错误:

CMakeFiles/test.exe.dir/main.f90.o: In function `MAIN__':
main.f90:(.text+0x2d): undefined reference to `mpi_init_'
main.f90:(.text+0x47): undefined reference to `mpi_comm_size_'
main.f90:(.text+0x61): undefined reference to `mpi_comm_rank_'
main.f90:(.text+0x1c3): undefined reference to `mpi_finalize_'
collect2: ld returned 1 exit status
make[2]: *** [test.exe] Error 1
make[1]: *** [CMakeFiles/test.exe.dir/all] Error 2
make: *** [all] Error 2

我附加了gfortran版本(正在工作)。为了切换到mpif90,我只是取消注释main.f90中的注释行:

program main
   use iso_c_binding
   implicit none
!   include 'mpif.h'

   interface
      function func (n,x) bind (C, name="func")
         import
         integer(c_int):: func
         integer(c_int):: n
         real(c_double), dimension(1:n), intent(in):: x
      end function func
   end interface

   integer(c_int):: n
   real(c_double), dimension(:), allocatable:: x
   integer(c_int):: result
!   integer, parameter:: master = 0
!   integer:: numtasks, taskid, ierr, dest
!   integer  status(mpi_status_size)

!   call mpi_init(ierr)
!   call mpi_comm_size(mpi_comm_world, numtasks, ierr)
!   call mpi_comm_rank(mpi_comm_world, taskid, ierr)
!   if (taskid .eq. master) then
      n = 3
      allocate(x(1:n))
      x = (/1., 2., 3./)
      result = func(n,x)
      deallocate(x)
!   end if
!   call mpi_finalize(ierr)
end program main

func.c:

#include <iostream>
using namespace std;
#ifdef __cplusplus
  extern"C" {
#endif
int func(int& n, double x[]) {
   std::cout << x[0] << "  " << x[1] << "  " << x[2] << std::endl;
   return 0;
}
#ifdef __cplusplus
  }
#endif

的CMakeLists.txt:

PROJECT(test)
cmake_minimum_required(VERSION 2.6)
enable_language(C Fortran)
# -------------------------
# Setting the compilers
# -------------------------
#set (CMAKE_Fortran_COMPILER /usr/local/openmpi/bin/mpif90)
set (CMAKE_Fortran_COMPILER /usr/bin/gfortran)
set (CMAKE_C_COMPILER /usr/bin/g++)
# -------------------------
# Setting the flags
# -------------------------
set_source_files_properties(main.f90 func.cpp PROPERTIES COMPILE_FLAGS "-c -lstdc++")
# -------------------------
# Making the executable
# -------------------------
ADD_EXECUTABLE(test.exe main.f90 func.cpp)

我很感激在这个问题上的任何帮助。

1 个答案:

答案 0 :(得分:3)

问题是您没有在任何地方链接到MPI。 此外,手动设置CMAKE_Fortran_compiler是错误的方法,因为它根本不可移植。这是我在其中一个项目中的简化版本。 请注意,我使用的是最近版本的cmake附带的FindMPI模块。我不知道cmake 2.6版本是否有该模块,但你可以在网上轻松找到它。

cmake_minimum_required (VERSION 2.8)
project(DYNAMO Fortran C)
find_package(MPI REQUIRED)
set(DYNAMO_LINK_LIBRARIES ${MPI_Fortran_LIBRARIES})
set(DYNAMO_SRCS main.f90)
add_executable(dynamo ${DYNAMO_SRCS})
set_target_properties(dynamo PROPERTIES COMPILE_FLAGS "${MPI_Fortran_COMPILE_FLAGS}")
set_target_properties(dynamo PROPERTIES LINK_FLAGS "${MPI_Fortran_LINK_FLAGS}")
target_link_libraries(dynamo ${DYNAMO_LINK_LIBRARIES})
install(TARGETS dynamo RUNTIME DESTINATION bin)