From 00671f943bfe41e77f303238909e14b056dcfbad Mon Sep 17 00:00:00 2001
From: Martin Diehl <mail@martin-diehl.net>
Date: Wed, 13 Apr 2022 23:45:14 +0200
Subject: [PATCH] easier to understand

---
 src/YAML_types.f90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/YAML_types.f90 b/src/YAML_types.f90
index d7ca71cbb..c4dcc0a83 100644
--- 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))