finalization error

2020-04-22 16:49:31 +02:00 · 2020-04-22 16:49:31 +02:00 · 11c4ff7787
parent 6a0a8f1d27
commit 11c4ff7787
1 changed files with 1 additions and 1 deletions
--- a/src/YAML_types.f90
+++ b/src/YAML_types.f90
@ -984,7 +984,7 @@ recursive subroutine tList_finalize(self)
  current => self%first
  do while (associated(current))
   next => current%next
-   deallocate(current%node)
+   if(allocated(current%node)) deallocate(current%node)
   current => next
  end do
  nullify(self%first)