polishing

2020-04-30 21:34:11 +02:00 · 2020-04-30 21:34:11 +02:00 · 815608ac42
parent 10710bc446
commit 815608ac42
1 changed files with 1 additions and 2 deletions
--- 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)