Я не могу понять, почему это не работает.
/* main.cpp */
#include <stdio.h>
extern "C"{
int __stdcall inhalf(int *);
}
int main()
{
int toHalf = 2;
int halved = inhalf(&toHalf);
printf("Half of 2 is %d", halved);
return 0;
}
Хорошо, это выглядит хорошо.
$ g++ -c main.cpp
Нет ошибок
! functions.f90
function inhalf(i) result(j)
integer, intent(in) :: i
integer :: j
j = i/2
end function inhalf
Я уверен, что это правильно.
$ gfortran -c functions.f90
Все идет нормально…
$ gcc -o testo main.o functions.o
main.o:main.cpp:(.text+0x24): undefined reference to `inhalf@4'
collect2.exe: error: ld returned 1 exit status
Я искал это больше часа, но я не мог найти ничего, что сработало бы для этого случая. Как мне решить это?
Для полной совместимости с C вы можете использовать bind
Особенность современного Фортрана:
! functions.f90
function inhalf(i) result(j) bind(C,name='inhalf')
integer, intent(in) :: i
integer :: j
j = i/2
end function inhalf
Это позволяет вам дать имя функции, которую вы можете использовать в C (и других), не полагаясь на схему именования, которую ваш компилятор использует самостоятельно.
__stdcall
только для Win32 (и поведение по умолчанию для связывания см. Вот). Вы можете безопасно удалить его. [На самом деле это требуется для компиляции вашего кода в Linux. ]
Других решений пока нет …