源文件==========================
c_sub.C:
=====================================================
#include
#ifdef _cplusplus
extern "C" void{
#endif
#define add_c ADD_C
extern void _stdcall add_c(int *, int *, int *);
#ifdef _cplusplus
}
#endif
void add_c(int *i, int *j, int *n)
{
*n = *i + *j;
}
=====================================================
f_main.for:
======================================================
program main
implicit real*8(a-h, o-z)
i = 1
j = 2
call add_c(i,j,n)
print *,'n ==', n
end
======================================================
编译========
icl /c c_sub.C
ifort -o t f_main.for c_sub.obj
运行结果=====
t.exe
n == 3
成功！！！！！！！！！！！！！！