Fortran Coder

标题: Call Fortran subroutine from C encounter“Undefined ... ” [打印本页]

作者: mars_cfeng 时间: 2016-11-25 00:59
标题: Call Fortran subroutine from C encounter“Undefined ... ”
I just want to test mixed programming with C/F, but i failed.
F subroutine subf.f90

[Fortran] 纯文本查看 复制代码

Integer Function Add(A,B)  Bind(C,Name="Add")!//要返回的话，请用 Function

  use , Intrinsic :: ISO_C_Binding

  implicit none

  integer , value :: A , B !/c#默认是传值，而fortran默认传址。因此要用value修饰

  Add = a + b !// Add（函数名）用于返回，而不能写 return a+b

end Function Add

C main test.cpp

[C] 纯文本查看 复制代码

#include <stdio.h>

extern "C" int Add(int A,int B);

int main()

{

      int c = Add(1,2);

      printf("c=%d\n",c);

      return 0;

}

makfile

[Make] 纯文本查看 复制代码

test: test.o subf.o

        icc -O2 -o test *.o

test.o:

        icc -c test.c

subf.o:

        ifort -c subf.f90

ERR

[Make] 纯文本查看 复制代码

test.o: In function `main':

test.cpp:(.text+0x35): undefined reference to `Add(int, int)'

Makefile:5: recipe for target 'test' failed

where did it all go wrong?

作者: fcode 时间: 2016-11-25 09:34
我没有装 icc ，也没有用过 icc
我试着用 gfortran 和 gcc 编译，是一切 OK 的。

我想，你是不是应该用 icpc 来代替 icc ？如果你的扩展名是 test.cpp 的话。
I did not install ICC , eh , I've never used it...
I tried to compile with gfortran and GCC , all OK.
I think you should use ICPC instead of ICC? If your extension is test.cpp.

作者: mars_cfeng 时间: 2016-11-26 01:10
谢谢群主！一直没来得及回复，问题解决了。早上醒来重新跑了一下就可以了。。。

作者: mars_cfeng 时间: 2016-11-26 01:10

fcode 发表于 2016-11-25 09:34
我没有装 icc ，也没有用过 icc
我试着用 gfortran 和 gcc 编译，是一切 OK 的。

icc/icpc 都是可以的。

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)