当我使用 iso_c_binding 时未定义对“cos”的引用答案

【问题标题】：undefined reference to `cos' when I use iso_c_binding当我使用 iso_c_binding 时未定义对“cos”的引用
【发布时间】：2021-03-17 22:21:43
【问题描述】：

我有 Fortran90 功能

 function eg_fun(r) bind(c)
  use, intrinsic :: iso_c_binding
  implicit none

  real(c_double), intent(in) :: r
  real(c_double)             :: eg_fun

  real(c_double), parameter :: PI = acos(-1.d0)

  eg_fun = PI * r * r + cos(r)
end function

还有我的 C 程序

#include <stdio.h>
#include <math.h>

extern double eg_fun(double *r);

int main(int argc, char **argv){
    double r;

    printf("Enter the argument\n");
    scanf("%lf", &r);

    printf("The result is %lf\n", eg_fun(&r));

    return 0;
}

我想使用iso_c_binding工具在C程序下使用Fortran函数。但是，当我尝试使用 gcc -Wall main.c routine.f90 -o app -lgfortran 编译 thos 时，我收到了错误消息

/tmp/ccn2Zeac.o: In function `eg_fun':
routine.f90:(.text+0x42): undefined reference to `cos'
collect2: error: ld returned 1 exit status

我该如何解决这个问题？

【问题讨论】：

标签： c fortran mixing

【解决方案1】：

与gcc 链接时，您必须使用-lm 显式链接数学库。您可以尝试使用 gfortran 链接。

iso_c_binding 模块与您的错误无关。还有bind(C) 属性。

【讨论】：

猜这家伙明白了。如果它不起作用，请在-lgfortran 之前和之后尝试-lm，因为它就是这样