Fix bug in psb_check_error()

4 years ago · 8bc575d319
parent 69b1678f6b
commit 8bc575d319
1 changed files with 1 additions and 7 deletions
--- 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