From a5c4e7232cf9e0c29982ab4d7723942bb961833b Mon Sep 17 00:00:00 2001 From: Sharan Roongta Date: Fri, 23 Jul 2021 18:37:45 +0200 Subject: [PATCH] probably not needed We remove blank spaces while converting to flow YAML. --- src/YAML_parse.f90 | 13 ++++++------- 1 file changed, 6 insertions(+), 7 deletions(-) diff --git a/src/YAML_parse.f90 b/src/YAML_parse.f90 index eb485ef40..030cd2735 100644 --- a/src/YAML_parse.f90 +++ b/src/YAML_parse.f90 @@ -54,7 +54,7 @@ recursive function parse_flow(YAML_flow) result(node) myVal character(len=:), allocatable :: & flow_string, & - key, line + key integer :: & e, & ! end position of dictionary or list s, & ! start position of dictionary or list @@ -97,9 +97,8 @@ recursive function parse_flow(YAML_flow) result(node) allocate(tScalar::node) select type (node) class is (tScalar) - line = trim(adjustl(flow_string)) - if(line(1:1) == '"') then - node = line(2:len(line)-1) + if(flow_string(1:1) == '"') then + node = trim(adjustl(flow_string(2:len(flow_string)-1))) else node = trim(adjustl(flow_string)) endif @@ -362,7 +361,7 @@ subroutine list_item_inline(blck,s_blck,inline) !ToDo: SR: merge with remove_ do while(indent_next > indent) inline = inline//' '//trim(adjustl(IO_rmComment(blck(s_blck:s_blck + index(blck(s_blck:),IO_EOL) - 2)))) - s_blck = s_blck + index(blck(s_blck:),IO_EOL) + s_blck = s_blck + index(blck(s_blck:),IO_EOL) indent_next = indentDepth(blck(s_blck:)) enddo @@ -849,9 +848,9 @@ subroutine selfTest character(len=*), parameter :: flow_multi = & '%YAML 1.1'//IO_EOL//& '---'//IO_EOL//& - 'a: ["b",'//IO_EOL//& + 'a: ["b",'//IO_EOL//& 'c: '//IO_EOL//& - '"d", "e"]'//IO_EOL + '"d", "e"]'//IO_EOL character(len=*), parameter :: flow = & '{a: ["b", {c: "d"}, "e"]}'