diff --git a/src/config.f90 b/src/config.f90 index 9d2ddde4c..d26b72c80 100644 --- a/src/config.f90 +++ b/src/config.f90 @@ -670,6 +670,7 @@ function getStrings(this,key,defaultVal,requiredShape,raw) endif else notAllocated if (whole) then + str = item%string%val(item%string%pos(4):) getStrings = [getStrings,str] else do i=2_pInt,item%string%pos(1)