在C,C和Fortran中混合代码

我一直在玩C,C和Fortran中的混合代码.我有一个简单的测试涉及C(cppprogram.C)中的主程序:

#include <iostream>
using namespace std;
extern "C" {
  void ffunction_(float *a, float *b);
}

extern "C" {
  void cfunction(float *a, float *b);
}

void cppfunction(float *a, float *b);

int main() {
  float a=1.0, b=2.0;

  cout << "Before running Fortran function:" << endl;
  cout << "a=" << a << endl;
  cout << "b=" << b << endl;

  ffunction_(&a,&b);

  cout << "After running Fortran function:" << endl;
  cout << "a=" << a << endl;
  cout << "b=" << b << endl;

  cout << "Before running C function:" << endl;
  cout << "a=" << a << endl;
  cout << "b=" << b << endl;

  cfunction(&a,&b);

  cout << "After running C function:" << endl;
  cout << "a=" << a << endl;
  cout << "b=" << b << endl;

  cout << "Before running C++ function:" << endl;
  cout << "a=" << a << endl;
  cout << "b=" << b << endl;

  cppfunction(&a,&b);

  cout << "After running C++ function:" << endl;
  cout << "a=" << a << endl;
  cout << "b=" << b << endl;

  return 0;
}

…在C,C和Fortran中调用过程:

C(cfunction1.c)

void cfunction(float *a, float *b) {
  *a=7.0;
  *b=8.0;
}

C(cppfunction1.C)

extern "C" {
  void cppfunction(float *a, float *b);
}

void cppfunction(float *a, float *b) {
  *a=5.0;
  *b=6.0;
}

Fortran(ffunction.f)

subroutine ffunction(a,b)
a=3.0
b=4.0
end

以下是我用来制作目标文件并将它们链接在一起的命令:

g++ -c cppprogram.C
gcc -c cfunction1.c
g++ -c cppfunction1.C
gfortran -c ffunction.f
g++ -o cppprogram cppprogram.o cfunction1.o cppfunction1.o ffunction.o

这是我的错误:

cppprogram.o: In function `main':
cppprogram.C:(.text+0x339): undefined reference to `cppfunction(float*, float*)'
collect2: error: ld returned 1 exit status

我知道编译器内部有时会想要将下划线附加到文件名中,但我认为我已经处理过了.这可以使用nm命令确定.某处有一个小错误……有人看到了吗?提前谢谢了.

解决方法:

更新:

你在cppfunction1.C中将cppfunction声明为extern“C”,但是在cppprogram.C中你没有将它声明为extern“C”.由于main是C,你不需要在cppfunction1.C中将cppfunction声明为extern“C”,除非你想从C或Fortran中调用它.

从cppfunction1.C中删除extern“C”.

上一篇:如何使用Python读/写Fortran名单?


下一篇:c – 使用g链接g和gfortran中的.o文件时出现“__gfortran_pow_c8_i4”错误