topic question about free user defined allocatable array in Intel® Fortran Compiler

question about free user defined allocatable array

haijunwu — Mon, 28 Nov 2011 12:53:54 GMT

Hi, I have a quesion about free user defined allocatable array. Followings are sample codes of my quesion.

!----------------------------------------------------------------
! This is the user defined data type
type :: VarType
real(8),allocatable :: Var_inner(:)
end type

! declare an dynamic array
type(VarType), allocatable :: Var_outer(:)

! allocate the array and its inner arrays
allocate(Var_Outer(10))
do i = 1, 10
allocate(Var_outer(i)%Var_inner(10))
enddo

! free the array
deallocate(Var_outer)
!----------------------------------------------------------

Quesion is : will it cause memory leak if I just free the outer array?

Thanks in advance!

question about free user defined allocatable array

mecej4 — Mon, 28 Nov 2011 13:32:16 GMT

> will it cause memory leak if I just free the outer array?

In Fortran 95 and later, local allocatable variables are freed when the subprogram is exited. In Fortran 90, memory leaks can be expected unless explicit deallocation is performed.

Correction to Line-8:

type(VarType), allocatable :: Var_outer(:)

question about free user defined allocatable array

Steven_L_Intel1 — Mon, 28 Nov 2011 14:48:57 GMT

If you have an allocatable array of a derived type (which you do), and that type has allocatable components (which yours does), deallocating the outer array automatically deallocates the components.