Dll中可变长度数组作为输出参数的问题
先说问题：实际应用中会遇到这样的问题：读取一个文件获取一些数据。我把这个做成子程序，封装在DLL中，以便不同程序调用。
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……
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中供外部程序调用的子程序的输出参数就一定不能是变长数组？
还请大家不吝赐教为谢！
“谁打开，谁关闭；谁声明，谁分配，谁释放” 不一定到处都遵守。像你这个情况，如果遵守，就得调用两次dll，没意思。你现在这样写挺好的，至于说出错，那是另一回事。 群主的Fortran综合能力已经跻身大陆地区前1%，所以lz大胆怀疑没啥问题，可是小心求证了吗？
1、子程序允许输入未分配的可变长度数组始于哪部Fortran规范呢？当初大佬们讨论的初衷？草案如何演进？
2、其它编译型语言如何实现？C、C++的相关规范、开发建议以及代码实现？
3、gfortran的编译器相关实现代码？或者更简单一点，g95编译器可变长长度数组的C实现代码翻阅了吗？ 如果参数是可分配数组，并且未分配之前传递，则需要“interface”
楼主可以封装在module里，避免手动书写 interface
如果没有interface，则编译器认为该数组是常规数组。可能会出错。
页:
[1]