c_check_error() should take ctxt by value

4 years ago · 4c91ab66f2
parent e60f4a2612
commit 4c91ab66f2
2 changed files with 3 additions and 3 deletions
--- a/cbind/base/psb_c_base.h
+++ b/cbind/base/psb_c_base.h
@ -49,7 +49,7 @@ extern "C" {
-  void  psb_c_check_error(psb_c_ctxt *cctxt);
+  void  psb_c_check_error(psb_c_ctxt cctxt);
  psb_i_t psb_c_error();
  psb_i_t psb_c_clean_errstack();
  void psb_c_print_errmsg();
--- a/cbind/base/psb_cpenv_mod.f90
+++ b/cbind/base/psb_cpenv_mod.f90
@ -136,8 +136,8 @@ contains
    use psb_base_mod, only : psb_init, psb_ctxt_type, psb_check_error
    implicit none
-    type(psb_c_object_type)      :: cctxt
+    type(psb_c_object_type), value :: cctxt
-    type(psb_ctxt_type), pointer :: ctxt
+    type(psb_ctxt_type), pointer   :: ctxt
    integer :: info
    if (c_associated(cctxt%item)) then