C++和Fortran：从C++访问Fortran公共块中的数组时出错Error

Question

我试图从C++访问Fortran公共块结构中的数组。
我有一个与C++和Fortran混合的示例代码。

Fortran语言：

integer a(5),b 
common /sample/ a,b 
a(1) = 1 
a(2) = 5 
a(3) = 10 
a(4) = 15 
a(5) = 20 
b = 25 

然后在C++：

extern "C"{ 
    extern struct{ 
     int *a,b; 
}sample_; 

从C++，如果我尝试打印值sample_.b：

printf("sample b:%d\n",sample_.b); 

我得到的值（ 2）：sample b:5

如果我尝试打印任何其他数组a值我只是得到一个segementation故障...

printf("sample_.a[1]=%d\n",(int)sample_.a[1]); 
printf("sample_.a[0]=%d\n",(int)sample_.a[0]); 

我在做什么错？¿任何想法¿？
我想，也许我必须将数组“a”的长度也传递给C++，但如果是这样，我也不知道该怎么做。

Answer 1

我的Fortran生锈了一点（好的，确实有点），但让我给它一个旋风。

a可能收到了VALUE而不是指向它的指针。那会将它设置为1，这不是一个好的指针值。

b收到数据块中的第二个值。你的C++结构并没有给编译器提供什么数据的真实格式，所以它会按照结构中给出的顺序无意识地将项目分配给结构。我会得到一个指向数据块的指针并手工分解它。

将a指定给数据块的地址（作为long int指针，看起来像;您的里程可能会有所不同）和b = a[5]。希望有所帮助。

Answer 2

我看来像你的FORTRAN数据实际布局为

struct { 
    int a[5]; 
    int b; 
} 

，你是一台机器，其中sizeof(int) == sizeof(int*)上。

Answer 3

如果要在C和Fortran之间共享全局变量，最好的方法是使用模块变量和Fortran ISO_C_Binding。公用块是遗留的，除非遗留代码的一部分，否则最好避免。使用ISO_C_Binding将使您的代码编译器和平台无关。在gfortran手册的“混合语言编程”一章的“互操作性全局变量”小节中有一个代码示例。这不是特定于gfortran，只是一些很好的文档。

继续使用ISO_C_Binding，如果使用它提供的Fortran类型，将确保与C类型匹配。 Fortran相当于C的int是C_INT。列表显示在gfortran手册的“内在模块”一章中。

Answer 4

thak你都为你有用的肛门。根据你的建议，我终于意识到我的问题是什么。我觉得我的错误是，Fortran中我有：

integer a(5),b 
common /sample/ a,b 

a(5)有一个固定的大小，然后在C++：

extern "C"{ 
    extern struct{ 
     int *a,b; 
}sample_; 

*a没有大小，作为一个指针。因此，编译器是这样理解的，因为*int指针代替a(5)指针

Answer 5

对于正确的C++/Fortran代码，您至少应该使用Fortran 2003.实际上，创建Fortran 2003/2008的Fortran代码界面（即使是Fortran 77）。

这里是关于混合现代Fortran和C++到该帖子的链接：

http://solarianprogrammer.com/2012/05/11/mixed-language-programming-cpp-11-fortran-2008/