Fortran Coder

查看: 6138|回复: 2

[编译器] 调用动态链接库中返回字符串的函数出错

[复制链接]

125

帖子

33

主题

0

精华

宗师

F 币
1574 元
贡献
800 点
发表于 2020-2-22 00:36:30 | 显示全部楼层 |阅读模式
求教:

以下代码正确:
[Fortran] 纯文本查看 复制代码
program test
write(*,*) itoa(9)
pause

contains

function itoa(i)
implicit none
  character(16) :: itoa
  integer,intent(in) :: i
  write(itoa,"(I0)") i
  return
end function
end 

但是一旦把这个函数封装到dll中,
[Fortran] 纯文本查看 复制代码
module test
contains
function itoa(i)
!DEC$ ATTRIBUTES STDCALL,REFERENCE,DLLEXPORT,ALIAS:"itoa"::itoa
implicit none
  character(16) :: itoa
  integer,intent(in) :: i
  write(itoa,"(I0)") i
  return
end function

end module

再去调用它就出错了: write(*,*)  itoa(9)

出错: Program Exception - access violation

怎么办?

2015

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
1572 元
贡献
676 点

美女勋章热心勋章星光勋章新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

发表于 2020-2-22 13:30:15 | 显示全部楼层
!DEC$ ATTRIBUTES STDCALL,REFERENCE,DLLEXPORT,ALIAS:"itoa"::itoa
改为
!DEC$ ATTRIBUTES DLLEXPORT,ALIAS:"itoa"::itoa

在主程序加上 use test,并把 test.mod 文件放在include路径,以便编译器找到。

125

帖子

33

主题

0

精华

宗师

F 币
1574 元
贡献
800 点
 楼主| 发表于 2020-2-23 20:53:37 | 显示全部楼层
多谢!我再试试
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )

GMT+8, 2024-11-6 11:00

Powered by Tencent X3.4

© 2013-2024 Tencent

快速回复 返回顶部 返回列表