Fortran内存泄露？

andy8496

请教各位一个困惑已久的问题，Fortran有没有内存泄露的问题呢？比如一个子程序中的动态数组，如果退出子程序的时候没有deallocate，会有什么样的后果呢？目前没看出有什么问题，但是如果没有deallocate的空间太大，会不会发生问题呢？

pasuka

去stackoverflow上面随便找找就有好多现成回答呀！
Automatic array deallocation in Fortran - Stack Overflow
http://stackoverflow.com/questio ... location-in-fortran
memory leaks - Does deallocating a Fortran derived type automatically deallocate member arrays and pointers as well? - Stack Overflow
http://stackoverflow.com/questio ... ocate-member-arrays

li913

子程序中的动态数组，如果没有save属性(默认没有)，退出子程序会自动释放。你可以用这个代码验证。

[Fortran] syntaxhighlighter_viewsource syntaxhighlighter_copycode

program test
  do k=1,10
    call sub 
  end do
  pause
end program test
  
subroutine sub
  implicit none
  integer,save::i=1
  integer(4),allocatable:: a(:,:,:)
  
  allocate(a(1024,1024,1024/4)) ! 1G内存
  a=i
  write(*,*) a(1,1,1)
  i=i+1
end subroutine
  

vvt

子程序里 allocatable 的数组会自动释放，但是 pointer 不会。

所以如果大量运用指针，内存泄漏是可能的。（但并不是说就不要用指针了，毕竟它还是很有用处的）

大头鼹鼠

integer(4),save,allocatable:: a(:,:,:)
三楼的程序，如果没有对动态数组定义SAVE属性，退出的时候就释放了，如果定义了下次就不能再调用动态数组了，拙见

大头鼹鼠

vvt 发表于 2017-3-21 12:41
子程序里 allocatable 的数组会自动释放，但是 pointer 不会。

所以如果大量运用指针，内存泄漏是可能的。 ...

领教了，做了一下测试确实如此，以前不用指针，不知道在什么时候用，所有的数据都用动态数据来搞定的，班主可以指点一二，在什么情况下使用指针比较好

andy8496

谢谢各位！这回明白了。