Dll中可变长度数组作为输出参数的问题

andy8496 · 发表于 2017-6-14 12:20:11

先说问题：
实际应用中会遇到这样的问题：读取一个文件获取一些数据。我把这个做成子程序，封装在DLL中，以便不同程序调用。

[Fortran] 纯文本查看 复制代码

subroutine read_data(file_name,num_data,iv_data)
!DEC$ ATTRIBUTES STDCALL,REFERENCE,DLLEXPORT,ALIAS:"read_data"::read_data
implicit none
  character(*),intent(in) :: file_name
  integer,intent(out) :: num_data
  integer,allocatable,intent(out) :: iv_data(:)
! 读取文件，获取数据，得到 num_data,iv_data……
  !代码略
allocate(iv_data(num_data))
iv_data = 88
  return
end subroutine

然后在主程序用调用这个dll中的子程序，获取数据，得到 num_data,iv_data……

[Fortran] 纯文本查看 复制代码

program main
implicit none

  character(256):: file_name
  integer :: num_data
  integer,allocatable :: iv_data()

  file_name = "1.txt"

  call read_data(file_name,num_data,iv_data)
deallocate(iv_data)
  stop
end program

这个时候经常遇到一个问题：程序出错退出了。
以前群主说过，“谁打开，谁关闭；谁声明，谁分配，谁释放”
所以上面这么用就不行，得先得到数据个数，再在主程序中分配好，然后再传给dll中的函数，写起来要麻烦一些。
但是为什么，同样的编译器（IVF），有时候这么用又没有问题？
之前按照上面的示例的方式写了很多这样的dll子程序。现在只能是遇到一个出问题了，改一个，心里始终没底。
这个有没有一个固定的规则？
是不是dll中供外部程序调用的子程序的输出参数就一定不能是变长数组？

还请大家不吝赐教为谢！

li913 · 发表于 2017-6-14 12:52:02

“谁打开，谁关闭；谁声明，谁分配，谁释放” 不一定到处都遵守。像你这个情况，如果遵守，就得调用两次dll，没意思。你现在这样写挺好的，至于说出错，那是另一回事。

pasuka · 发表于 2017-6-14 13:48:02

群主的Fortran综合能力已经跻身大陆地区前1%，所以lz大胆怀疑没啥问题，可是小心求证了吗？
1、子程序允许输入未分配的可变长度数组始于哪部Fortran规范呢？当初大佬们讨论的初衷？草案如何演进？
2、其它编译型语言如何实现？C、C++的相关规范、开发建议以及代码实现？
3、gfortran的编译器相关实现代码？或者更简单一点，g95编译器可变长长度数组的C实现代码翻阅了吗？