From 4c91ab66f2c25860296e37e43ffc7f74b104c3f0 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Fri, 5 Feb 2021 14:16:14 +0100 Subject: [PATCH] c_check_error() should take ctxt by value --- cbind/base/psb_c_base.h | 2 +- cbind/base/psb_cpenv_mod.f90 | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) 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