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