From bc3f6ae97c13cfcdd2f19cb084c9195e9b3be606 Mon Sep 17 00:00:00 2001
From: Pratheek Shanthraj <p.shanthraj@mpie.de>
Date: Tue, 31 Jul 2018 23:15:44 +0200
Subject: [PATCH] missing bits in getStrings function

---
 src/config.f90 | 1 +
 1 file changed, 1 insertion(+)

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)