finalization error
This commit is contained in:
parent
6a0a8f1d27
commit
11c4ff7787
|
@ -984,7 +984,7 @@ recursive subroutine tList_finalize(self)
|
||||||
current => self%first
|
current => self%first
|
||||||
do while (associated(current))
|
do while (associated(current))
|
||||||
next => current%next
|
next => current%next
|
||||||
deallocate(current%node)
|
if(allocated(current%node)) deallocate(current%node)
|
||||||
current => next
|
current => next
|
||||||
end do
|
end do
|
||||||
nullify(self%first)
|
nullify(self%first)
|
||||||
|
|
Loading…
Reference in New Issue