如何解决当我使用 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)
属性。
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。