From e1d859e3f52c48fba2d5f3e0e9b4952b308a44b8 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Wed, 18 Nov 2020 16:47:23 +0100 Subject: [PATCH] Change return value of get_context on error. --- base/modules/desc/psb_desc_mod.F90 | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/base/modules/desc/psb_desc_mod.F90 b/base/modules/desc/psb_desc_mod.F90 index cc003759..c1c98d51 100644 --- a/base/modules/desc/psb_desc_mod.F90 +++ b/base/modules/desc/psb_desc_mod.F90 @@ -613,8 +613,10 @@ contains if (allocated(desc%indxmap)) then val = desc%indxmap%get_ctxt() else - call psb_errpush(psb_err_invalid_cd_state_,'psb_cd_get_context') - call psb_error() + ! At this point, val should a non-ALLOCATED + ! ctxt component, which suits us just fine. + !call psb_errpush(psb_err_invalid_cd_state_,'psb_cd_get_context') + !call psb_error() end if end function psb_cd_get_context