diff --git a/base/modules/psb_tools_mod.f90 b/base/modules/psb_tools_mod.f90
index 856970f6..4c2239a0 100644
--- a/base/modules/psb_tools_mod.f90
+++ b/base/modules/psb_tools_mod.f90
@@ -701,6 +701,7 @@ contains
       call psb_cd_inloc((/(i,i=nlp+1,nlp+nl)/),ictxt,desc_a,info)
 
     endif
+    if (info /= 0) goto 999
     call psb_erractionrestore(err_act)
     return