Question

我必须从我的fortran程序中调用C ++函数。我正在使用Visual Studio 2010.我在本书http://www.amazon.com/Guide-Fortran-Programming-Walter-Brainerd/dp/1848825420中阅读了有关2003 ISO C绑定的相关章节。我试图在第219页编译并运行简单的例子（我在下面复制了它），但它说“错误LNK2019：函数_MAIN__中引用的未解析的外部符号_c”。这些是我遵循的步骤。

1）我使用Fortran主程序和模块创建了一个Fortran项目，并将其设置为“启动项目”。

2）我创建了一个类型为“static library”的C ++项目。

3）我添加了$（IFORT_COMPILERvv）\ compiler \ lib \ ia32，如此处所述http://software.intel.com/en-us/articles/configuring-visual-studio-for-mixed-language-applications

当我编译时，我得到了那个错误。如果我评论Call C行它完全运行，所以它找不到C函数。有什么建议吗？提前致谢。以下是C和Fortran代码：

    module type_def
       use, intrinsic :: iso_c_binding
       implicit none
       private

       type, public, bind(c) :: t_type
          integer(kind=c_int) :: count
          real(kind=c_float) :: data
       end type t_type
    end module type_def

    program fortran_calls_c
       use type_def
       use, intrinsic :: iso_c_binding
       implicit none

       type(t_type) :: t
       real(kind=c_float) :: x, y
       integer(kind=c_int), dimension(0:1, 0:2) :: a

       interface
          subroutine c(tp, arr, a, b, m) bind(c)
             import :: c_float, c_int, c_char, t_type
             type(t_type) :: tp
             integer(kind=c_int), dimension(0:1, 0:2) :: arr
             real(kind=c_float) :: a, b
             character(kind=c_char), dimension(*) :: m
          end subroutine c
       end interface

       t = t_type(count=99, data=9.9)
       x = 1.1
       a = reshape([1, 2, 3, 4, 5, 6], shape(a))
       call c(t, a, x, y, "doubling x" // c_null_char)
       print *, x, y
       print *, t
       print *, a

    end program fortran_calls_c

    #include "stdafx.h"
    //#include <iostream>
    #include <fstream>
    typedef struct {int amount; float value;} newtype;
    void c(newtype *nt, int arr[3][2], float *a, float *b, char msg[])
    {
        printf (" %d %f\n", nt->amount, nt->value);
        printf (" %d %d %d\n", arr[0][1], arr[1][0], arr[1][1]);
        printf (" %s\n", msg);
        *b = 2*(*a);
    }

Answer 1

现在回答编辑以反映IanH评论中的建议和知识：

正如@BoBTFish建议的那样，将extern "C"发送到C ++函数c的声明中。当然，请确保您使用大写C，其中一些评论在那里有点松散。

我评论了包含stdafx.h的源代码行，这似乎是可选的，我无法为此寻找或创建它。

在该集之后，对于Fortran项目，

链接器/常规/附加库目录到lib文件所在的目录;和
链接器/输入/附加依赖项以指定lib文件。

将C ++和Fortran项目的运行时库选项设置为相同。在Fortran项目的属性页面中，将Fortran / Libraries设置为Debug Multithread DLL。

现在它编译并执行并生成以下内容：

 99 9.900000
 2 3 4
 doubling x
   1.100000       2.200000
          99   9.900000
           1           2           3           4           5           6

感谢IanH的投入，我现在是一个更好的脚本跟踪猴子。

在Visual Studio 2010中使用2003 ISO C绑定从Fortran调用C ++函数

1 个答案: