From b23efbf48d04bf55629c4970b8f6cba24bb8339c Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
Date: Thu, 6 Oct 2011 08:44:28 +0000
Subject: [PATCH] Add error condition for bld_tmphalo.

---
 base/internals/psi_bld_tmphalo.f90 | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/base/internals/psi_bld_tmphalo.f90 b/base/internals/psi_bld_tmphalo.f90
index 4d54ebc7..a273b5e8 100644
--- a/base/internals/psi_bld_tmphalo.f90
+++ b/base/internals/psi_bld_tmphalo.f90
@@ -124,6 +124,9 @@ subroutine psi_bld_tmphalo(desc,info)
     if (tmphl(j+0)<0) then 
       write(psb_err_unit,*) me,'Unrecoverable error: missing proc from asb',&
            & i, nh, n_row+i,helem(i),hproc(i)      
+      info = psb_err_invalid_cd_state_
+      call psb_errpush(info,name)
+      goto 9999
     end if
     tmphl(j+1) = 1
     tmphl(j+2) = n_row+i