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

问题描述

 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

我该如何解决这个问题？

解决方法

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

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

c fortran mixing