From 08f5851c82771fb4365d898c62a104558ddf6d29 Mon Sep 17 00:00:00 2001 From: Sharan Roongta Date: Fri, 25 Sep 2020 10:59:03 +0200 Subject: [PATCH] take care of empty lines in this slightly new setup --- src/YAML_parse.f90 | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/src/YAML_parse.f90 b/src/YAML_parse.f90 index 218d4688b..65b9afe3d 100644 --- a/src/YAML_parse.f90 +++ b/src/YAML_parse.f90 @@ -594,12 +594,13 @@ function to_flow(blck) s_blck = 1 offset = 0 - call skip_empty_lines(blck,s_blck) - e_blck = s_blck + index(blck(s_blck:),IO_EOL) - 2 - line = IO_rmComment(blck(s_blck:e_blck)) - if(trim(line) == '---') s_blck = e_blck + 2 - - call decide(blck,to_flow,s_blck,s_flow,offset) + if(len_trim(blck) /= 0) then + call skip_empty_lines(blck,s_blck) + e_blck = s_blck + index(blck(s_blck:),IO_EOL) - 2 + line = IO_rmComment(blck(s_blck:e_blck)) + if(trim(line) == '---') s_blck = e_blck + 2 + call decide(blck,to_flow,s_blck,s_flow,offset) + endif to_flow = trim(to_flow(:s_flow-1)) end_line = index(to_flow,IO_EOL)