From 3cc3229792c82ef496f5bf3c376452a61652584e Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Sat, 16 Apr 2022 16:19:33 +0200 Subject: [PATCH] string new line which is added by libfyaml --- src/YAML_parse.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/YAML_parse.f90 b/src/YAML_parse.f90 index 8013089e1..bfce06bc9 100644 --- a/src/YAML_parse.f90 +++ b/src/YAML_parse.f90 @@ -83,7 +83,7 @@ recursive function parse_flow(YAML_flow) result(node) s, & ! start position of dictionary or list d ! position of key: value separator (':') - flow_string = trim(adjustl(YAML_flow(:))) + flow_string = trim(adjustl(YAML_flow)) if (len_trim(flow_string) == 0) then node => emptyDict return @@ -201,7 +201,7 @@ function to_flow(mixed) result(flow) block character(len=strlen,kind=c_char), pointer :: s call c_f_pointer(str_ptr,s) - flow = s + flow = s(:len(s)-1) end block call free_C(str_ptr)