From 8bc575d319675fd3f54d18ffd49679b1b22ba584 Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@uniroma2.it>
Date: Fri, 5 Feb 2021 17:34:14 +0100
Subject: [PATCH] Fix bug in psb_check_error()

---
 cbind/base/psb_cpenv_mod.f90 | 8 +-------
 1 file changed, 1 insertion(+), 7 deletions(-)

diff --git a/cbind/base/psb_cpenv_mod.f90 b/cbind/base/psb_cpenv_mod.f90
index fd224e3a..e0e7b8a2 100644
--- a/cbind/base/psb_cpenv_mod.f90
+++ b/cbind/base/psb_cpenv_mod.f90
@@ -140,13 +140,7 @@ contains
     type(psb_ctxt_type), pointer   :: ctxt
     integer :: info
 
-    if (c_associated(cctxt%item)) then
-      call c_f_pointer(cctxt%item,ctxt)
-      deallocate(ctxt,stat=info)
-      if (info /= 0) return
-    end if
-    allocate(ctxt,stat=info)
-    if (info /= 0) return
+    ctxt => psb_c2f_ctxt(cctxt)
     call psb_check_error(ctxt,abrt=.true.)
 
   end subroutine psb_c_check_error