c - 当我使用 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我收到了错误消息

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

我该如何解决这个问题？

标签： cfortranmixing

Answer 1

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

该iso_c_binding模块与您的错误无关。并且bind(C)属性也是如此。