improved error handling

This commit is contained in:
Martin Diehl 2018-06-26 07:56:20 +02:00
parent a91fa75a28
commit 0680b1706f
1 changed files with 3 additions and 2 deletions

View File

@ -462,8 +462,9 @@ character(len=65536) function getString(this,key,defaultVal,raw)
end do end do
if (.not. found) call IO_error(140_pInt,ext_msg=key) 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 end function getString