From d6ce721a2516d1bbb8aa7f3253ae49bc0d061aff Mon Sep 17 00:00:00 2001
From: Martin Diehl <mail@martin-diehl.net>
Date: Sat, 24 Jul 2021 12:10:59 +0200
Subject: [PATCH] need to check type of leaf

otherwise, using a [list] where a scalar is expected results in a crash,
not in a meaningful error message
---
 src/YAML_types.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/YAML_types.f90 b/src/YAML_types.f90
index 45907fbae..e11be1275 100644
--- a/src/YAML_types.f90
+++ b/src/YAML_types.f90
@@ -849,7 +849,7 @@ function tNode_get_byKey_as1dFloat(self,k,defaultVal,requiredSize) result(nodeAs
 
   if (self%contains(k)) then
     node => self%get(k)
-    select type(self)
+    select type(node)
       class is(tList)
         list => node%asList()
         nodeAs1dFloat = list%as1dFloat()