当我使用 iso_c_binding 时对 `cos' 的未定义引用

Question

我有 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

我该如何解决这个问题？

Answer 1

当 link 使用 gcc 时，您必须 link 显式使用 -lm 数学库。您可以尝试使用 gfortran linking。

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

当我使用 iso_c_binding 时对 `cos' 的未定义引用

undefined reference to `cos' when I use iso_c_binding

c

fortran

mixing