diff --git a/mlprec/impl/level/mld_c_base_onelev_mat_asb.f90 b/mlprec/impl/level/mld_c_base_onelev_mat_asb.f90
index 07b717a8..43230a41 100644
--- a/mlprec/impl/level/mld_c_base_onelev_mat_asb.f90
+++ b/mlprec/impl/level/mld_c_base_onelev_mat_asb.f90
@@ -164,7 +164,7 @@ subroutine mld_c_base_onelev_mat_asb(lv,a,desc_a,ilaggr,nlaggr,op_prol,info)
     if (inl < nlaggr(me+1)) then
       info = psb_err_bad_int_cnv_
       call psb_errpush(info,name,&
-           & e_err=(/nlaggr(me+1),inl*1_psb_lpk_/))
+           & l_err=(/nlaggr(me+1),inl*1_psb_lpk_/))
       goto 9999
     end if
     if (info == psb_success_) call psb_cdall(ictxt,lv%desc_ac,info,nl=inl)
diff --git a/mlprec/impl/level/mld_d_base_onelev_mat_asb.f90 b/mlprec/impl/level/mld_d_base_onelev_mat_asb.f90
index 98e630e8..754b88eb 100644
--- a/mlprec/impl/level/mld_d_base_onelev_mat_asb.f90
+++ b/mlprec/impl/level/mld_d_base_onelev_mat_asb.f90
@@ -164,7 +164,7 @@ subroutine mld_d_base_onelev_mat_asb(lv,a,desc_a,ilaggr,nlaggr,op_prol,info)
     if (inl < nlaggr(me+1)) then
       info = psb_err_bad_int_cnv_
       call psb_errpush(info,name,&
-           & e_err=(/nlaggr(me+1),inl*1_psb_lpk_/))
+           & l_err=(/nlaggr(me+1),inl*1_psb_lpk_/))
       goto 9999
     end if
     if (info == psb_success_) call psb_cdall(ictxt,lv%desc_ac,info,nl=inl)
diff --git a/mlprec/impl/level/mld_s_base_onelev_mat_asb.f90 b/mlprec/impl/level/mld_s_base_onelev_mat_asb.f90
index 32e0f377..76ea9a60 100644
--- a/mlprec/impl/level/mld_s_base_onelev_mat_asb.f90
+++ b/mlprec/impl/level/mld_s_base_onelev_mat_asb.f90
@@ -164,7 +164,7 @@ subroutine mld_s_base_onelev_mat_asb(lv,a,desc_a,ilaggr,nlaggr,op_prol,info)
     if (inl < nlaggr(me+1)) then
       info = psb_err_bad_int_cnv_
       call psb_errpush(info,name,&
-           & e_err=(/nlaggr(me+1),inl*1_psb_lpk_/))
+           & l_err=(/nlaggr(me+1),inl*1_psb_lpk_/))
       goto 9999
     end if
     if (info == psb_success_) call psb_cdall(ictxt,lv%desc_ac,info,nl=inl)
diff --git a/mlprec/impl/level/mld_z_base_onelev_mat_asb.f90 b/mlprec/impl/level/mld_z_base_onelev_mat_asb.f90
index cb540e34..7b8c138b 100644
--- a/mlprec/impl/level/mld_z_base_onelev_mat_asb.f90
+++ b/mlprec/impl/level/mld_z_base_onelev_mat_asb.f90
@@ -164,7 +164,7 @@ subroutine mld_z_base_onelev_mat_asb(lv,a,desc_a,ilaggr,nlaggr,op_prol,info)
     if (inl < nlaggr(me+1)) then
       info = psb_err_bad_int_cnv_
       call psb_errpush(info,name,&
-           & e_err=(/nlaggr(me+1),inl*1_psb_lpk_/))
+           & l_err=(/nlaggr(me+1),inl*1_psb_lpk_/))
       goto 9999
     end if
     if (info == psb_success_) call psb_cdall(ictxt,lv%desc_ac,info,nl=inl)