diff --git a/cbind/base/psb_c_base.h b/cbind/base/psb_c_base.h index 69a749ea..e054daf6 100644 --- 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(); diff --git a/cbind/base/psb_cpenv_mod.f90 b/cbind/base/psb_cpenv_mod.f90 index 4403540f..fd224e3a 100644 --- 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_ctxt_type), pointer :: ctxt + type(psb_c_object_type), value :: cctxt + type(psb_ctxt_type), pointer :: ctxt integer :: info if (c_associated(cctxt%item)) then