From 815608ac4213287f6e00a84f87a3f467f741989b Mon Sep 17 00:00:00 2001
From: Sharan Roongta <s.roongta@mpie.de>
Date: Thu, 30 Apr 2020 21:34:11 +0200
Subject: [PATCH] polishing

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

diff --git a/src/YAML_types.f90 b/src/YAML_types.f90
index 7a53bdbd3..02b2d5fdb 100644
--- a/src/YAML_types.f90
+++ b/src/YAML_types.f90
@@ -205,10 +205,9 @@ subroutine unitTest
 
   block
     class(tNode), pointer :: l1, l2, n
-    character(len=1) :: test = '2'
     select type(s1)
       class is(tScalar)
-        s1 = test
+        s1 = '2'
     endselect
    
     select type(s2)