missing bits in getStrings function

2018-07-31 23:15:44 +02:00 · 2018-07-31 23:15:44 +02:00 · bc3f6ae97c
parent 2419deea8f
commit bc3f6ae97c
1 changed files with 1 additions and 0 deletions
--- 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)