easier to understand

2022-04-13 23:45:14 +02:00 · 2022-04-13 23:45:14 +02:00 · 00671f943b
parent 03b9a7679f
commit 00671f943b
1 changed files with 2 additions and 2 deletions
--- a/src/YAML_types.f90
+++ b/src/YAML_types.f90
@ -1348,8 +1348,8 @@ subroutine tList_append(self,node)
  type(tItem), pointer :: item

  if (.not. associated(self%first)) then
-    allocate(self%first)
-    item => self%first
+    allocate(item)
+    self%first => item
  else
    item => self%first
    do while (associated(item%next))