From 0680b1706f801e6aed6425fbcddbc186218d7531 Mon Sep 17 00:00:00 2001
From: Martin Diehl <m.diehl@mpie.de>
Date: Tue, 26 Jun 2018 07:56:20 +0200
Subject: [PATCH] improved error handling

---
 src/config.f90 | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/config.f90 b/src/config.f90
index a469019ae..679da24aa 100644
--- a/src/config.f90
+++ b/src/config.f90
@@ -462,8 +462,9 @@ character(len=65536) function getString(this,key,defaultVal,raw)
  end do
 
  if (.not. found) call IO_error(140_pInt,ext_msg=key)
- if (present(defaultVal) .and. len_trim(getString)/=len_trim(defaultVal)) write(6,*) 'mist';flush(6)
-
+ if (present(defaultVal)) then
+   if(len_trim(getString)/=len_trim(defaultVal)) call IO_error(0_pInt,ext_msg='getString')
+ endif
 end function getString