編譯錯誤：找不到「_for_stop_core」

Question

我試圖編譯一個調用fortran子例程的c代碼，但我總是得到錯誤。

下面是Fortran代碼：

!fort_sub.f90 
module myadd 
use iso_c_binding 
implicit none 
contains 

subroutine add1(a) bind(c) 
implicit none 
integer (c_int),intent (inout) :: a 
a=a+1 

if(a>10) then 
    stop 
endif 
end subroutine add1 
end module myadd 

，這裏是C代碼

//main.cpp 
extern "C"{ void add1(int * a); } 

int main(void){ 
    int a=2; 
    add1(&a); 
    return 0; 
} 

當我編譯他們

ifort -c fort_subs.f90 
icc main.cpp fort_subs.o 

我得到錯誤

Undefined symbols for architecture x86_64: "_for_stop_core", referenced from: 
     _add1 in fort_subs.o ld: symbol(s) not found for architecture x86_64 

，當我與

icc -c main.cpp 
ifort -nofor-main fort_subs.f90 main.o 

編譯它們，我得到錯誤

Undefined symbols for architecture x86_64: 
    "___gxx_personality_v0", referenced from: 
     Dwarf Exception Unwind Info (__eh_frame) in main.o 
    "___intel_new_feature_proc_init", referenced from: 
     _main in main.o 
ld: symbol(s) not found for architecture x86_64 

那麼，爲什麼有這些錯誤，以及如何解決這些問題？

我知道在ibm編譯器中有一個選項「-lxlf90」，告訴c編譯器鏈接fortran庫，它解決了「_for_stop_core」錯誤。 intel c編譯器有沒有類似的選項？

Answer 1

似乎C不喜歡Fortran的STOP命令。如果要停止程序，你可能要考慮具有第二值來像

subroutine add1(a,kill) bind(c) 
    integer (c_int), intent(inout) :: a, kill 
    kill = 0 
    a = a+1 
    if(a > 10) kill=1 
end subroutine 

而且在main.cpp，

//main.cpp 
#include <stdio.h> 
extern "C"{ void add1(int * a, int * kill); } 

int main(void){ 
    int a=20, kill; 
    add1(&a, &kill); 
    if(kill!=0) { 
    printf("program halted due to a>10\n"); 
    return 0; 
    } 
    return 0; 
}