From 7388cbb940a5bd31ee1e829a559117edc890ec81 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Thu, 14 Jun 2018 20:39:23 +0200 Subject: [PATCH] 'split' should be default, wrong position in stringPos --- src/linked_list.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/linked_list.f90 b/src/linked_list.f90 index 78e38d0da..fe5ae0e35 100644 --- a/src/linked_list.f90 +++ b/src/linked_list.f90 @@ -376,7 +376,7 @@ character(len=65536) function getString(this,key,defaultVal,raw) found = present(defaultVal) if (present(defaultVal)) getString = defaultVal - split = merge(raw,.false.,present(raw)) + split = merge(raw,.true.,present(raw)) list_tmp => this%next do @@ -390,7 +390,7 @@ character(len=65536) function getString(this,key,defaultVal,raw) if (list_tmp%string%pos(1) < 2_pInt) call IO_error(143_pInt,ext_msg=key) getString = IO_StringValue(list_tmp%string%val,list_tmp%string%pos,2) else - getString = list_tmp%string%val(list_tmp%string%pos(3):) + getString = trim(list_tmp%string%val(list_tmp%string%pos(4):)) endif endif foundKey list_tmp => list_tmp%next