diff --git a/base/modules/psb_error_mod.F90 b/base/modules/psb_error_mod.F90 index 9e44b9e9..28a73498 100644 --- a/base/modules/psb_error_mod.F90 +++ b/base/modules/psb_error_mod.F90 @@ -64,7 +64,8 @@ module psb_error_mod & psb_ser_error_handler, psb_par_error_handler, & & psb_ser_error_print_stack, psb_par_error_print_stack,& & psb_error_print_stack, psb_errmsg, psb_ach_errmsg, & - & psb_set_global_checks, psb_clear_global_checks, psb_get_global_checks + & psb_set_global_checks, psb_clear_global_checks, psb_get_global_checks,& + & psb_check_error interface psb_error_handler subroutine psb_ser_error_handler(err_act) diff --git a/cbind/base/psb_cpenv_mod.f90 b/cbind/base/psb_cpenv_mod.f90 index cb1d0a14..4403540f 100644 --- a/cbind/base/psb_cpenv_mod.f90 +++ b/cbind/base/psb_cpenv_mod.f90 @@ -133,7 +133,7 @@ contains end subroutine psb_c_abort subroutine psb_c_check_error(cctxt) bind(c) - use psb_base_mod, only : psb_init, psb_ctxt_type + use psb_base_mod, only : psb_init, psb_ctxt_type, psb_check_error implicit none type(psb_c_object_type) :: cctxt