Подключение dll к fortran программе
Есть программа вида
INTERFACE
real*8 FUNCTION fun (x)
!DEC$ ATTRIBUTES DLLIMPORT :: fun, STDTCALL
c REAL*8 x
END FUNCTION
END INTERFACE
real*8 a,b
a=5.0
b=fun(a)
print *, b
stop
end program
где fun - функция из dll с параметром типа real*8. DLL откомпилирована и при подключении в делфи и си работает. При попытке запустить такую программку выдает сообщение:
Error: The type of the actual argument differs from the type of the dummy argument. [A] b=fun(a)
Если не комментировать строку REAL*8 x:
error LNK2001: unresolved external symbol _fun@4
Debug/MyProg.exe : fatal error LNK1120: 1 unresolved externals
Error executing link.exe.
Подскажите, пожалуйста, в чем ошибка?
INTERFACE
real*8 FUNCTION fun (x)
!DEC$ ATTRIBUTES DLLIMPORT :: fun, STDTCALL
c REAL*8 x
END FUNCTION
END INTERFACE
real*8 a,b
a=5.0
b=fun(a)
print *, b
stop
end program
где fun - функция из dll с параметром типа real*8. DLL откомпилирована и при подключении в делфи и си работает. При попытке запустить такую программку выдает сообщение:
Error: The type of the actual argument differs from the type of the dummy argument. [A] b=fun(a)
Если не комментировать строку REAL*8 x:
error LNK2001: unresolved external symbol _fun@4
Debug/MyProg.exe : fatal error LNK1120: 1 unresolved externals
Error executing link.exe.
Подскажите, пожалуйста, в чем ошибка?