diff --git a/amgprec/impl/aggregator/amg_caggrmat_minnrg_bld.f90 b/amgprec/impl/aggregator/amg_caggrmat_minnrg_bld.f90
index f8223877..612c2953 100644
--- a/amgprec/impl/aggregator/amg_caggrmat_minnrg_bld.f90
+++ b/amgprec/impl/aggregator/amg_caggrmat_minnrg_bld.f90
@@ -154,9 +154,6 @@ 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 aaa1c52f..f7b21847 100644
--- a/amgprec/impl/aggregator/amg_daggrmat_minnrg_bld.f90
+++ b/amgprec/impl/aggregator/amg_daggrmat_minnrg_bld.f90
@@ -154,9 +154,6 @@ 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 50d85713..66514a66 100644
--- a/amgprec/impl/aggregator/amg_saggrmat_minnrg_bld.f90
+++ b/amgprec/impl/aggregator/amg_saggrmat_minnrg_bld.f90
@@ -154,9 +154,6 @@ 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 90adcf9b..89d6d89d 100644
--- a/amgprec/impl/aggregator/amg_zaggrmat_minnrg_bld.f90
+++ b/amgprec/impl/aggregator/amg_zaggrmat_minnrg_bld.f90
@@ -154,9 +154,6 @@ 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)