diff --git a/amgprec/impl/aggregator/amg_caggrmat_minnrg_bld.f90 b/amgprec/impl/aggregator/amg_caggrmat_minnrg_bld.f90
index 612c2953..f8223877 100644
--- a/amgprec/impl/aggregator/amg_caggrmat_minnrg_bld.f90
+++ b/amgprec/impl/aggregator/amg_caggrmat_minnrg_bld.f90
@@ -154,6 +154,9 @@ subroutine amg_caggrmat_minnrg_bld(a,desc_a,ilaggr,nlaggr,parms,&
 
   ctxt = desc_a%get_context()
   icomm = desc_a%get_mpic()
+  info=psb_err_internal_error_
+  call psb_errpush(info,name)
+  goto 9999      
 
   call psb_info(ctxt, me, np)
 
diff --git a/amgprec/impl/aggregator/amg_daggrmat_minnrg_bld.f90 b/amgprec/impl/aggregator/amg_daggrmat_minnrg_bld.f90
index f7b21847..aaa1c52f 100644
--- a/amgprec/impl/aggregator/amg_daggrmat_minnrg_bld.f90
+++ b/amgprec/impl/aggregator/amg_daggrmat_minnrg_bld.f90
@@ -154,6 +154,9 @@ subroutine amg_daggrmat_minnrg_bld(a,desc_a,ilaggr,nlaggr,parms,&
 
   ctxt = desc_a%get_context()
   icomm = desc_a%get_mpic()
+  info=psb_err_internal_error_
+  call psb_errpush(info,name)
+  goto 9999      
 
   call psb_info(ctxt, me, np)
 
diff --git a/amgprec/impl/aggregator/amg_saggrmat_minnrg_bld.f90 b/amgprec/impl/aggregator/amg_saggrmat_minnrg_bld.f90
index 66514a66..50d85713 100644
--- a/amgprec/impl/aggregator/amg_saggrmat_minnrg_bld.f90
+++ b/amgprec/impl/aggregator/amg_saggrmat_minnrg_bld.f90
@@ -154,6 +154,9 @@ subroutine amg_saggrmat_minnrg_bld(a,desc_a,ilaggr,nlaggr,parms,&
 
   ctxt = desc_a%get_context()
   icomm = desc_a%get_mpic()
+  info=psb_err_internal_error_
+  call psb_errpush(info,name)
+  goto 9999      
 
   call psb_info(ctxt, me, np)
 
diff --git a/amgprec/impl/aggregator/amg_zaggrmat_minnrg_bld.f90 b/amgprec/impl/aggregator/amg_zaggrmat_minnrg_bld.f90
index 89d6d89d..90adcf9b 100644
--- a/amgprec/impl/aggregator/amg_zaggrmat_minnrg_bld.f90
+++ b/amgprec/impl/aggregator/amg_zaggrmat_minnrg_bld.f90
@@ -154,6 +154,9 @@ subroutine amg_zaggrmat_minnrg_bld(a,desc_a,ilaggr,nlaggr,parms,&
 
   ctxt = desc_a%get_context()
   icomm = desc_a%get_mpic()
+  info=psb_err_internal_error_
+  call psb_errpush(info,name)
+  goto 9999      
 
   call psb_info(ctxt, me, np)