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/