diff --git a/base/serial/impl/psb_c_csc_impl.f90 b/base/serial/impl/psb_c_csc_impl.f90
index a62ec659..296d8a54 100644
--- a/base/serial/impl/psb_c_csc_impl.f90
+++ b/base/serial/impl/psb_c_csc_impl.f90
@@ -1158,7 +1158,7 @@ subroutine psb_c_csc_cssm(alpha,a,x,beta,y,info,trans)
 
   if (size(x,1)<m) then 
     info = 36
-    call psb_errpush(info,name,i_err=(/3,n,0,0,0/))
+    call psb_errpush(info,name,i_err=(/3,m,0,0,0/))
     goto 9999
   end if
 
diff --git a/base/serial/impl/psb_s_csc_impl.f90 b/base/serial/impl/psb_s_csc_impl.f90
index 9144c0ed..d2a621fa 100644
--- a/base/serial/impl/psb_s_csc_impl.f90
+++ b/base/serial/impl/psb_s_csc_impl.f90
@@ -834,7 +834,7 @@ subroutine psb_s_csc_cssm(alpha,a,x,beta,y,info,trans)
 
   if (size(x,1)<m) then 
     info = 36
-    call psb_errpush(info,name,i_err=(/3,n,0,0,0/))
+    call psb_errpush(info,name,i_err=(/3,m,0,0,0/))
     goto 9999
   end if
 
diff --git a/base/serial/impl/psb_z_csc_impl.f90 b/base/serial/impl/psb_z_csc_impl.f90
index 11b50460..55d0b169 100644
--- a/base/serial/impl/psb_z_csc_impl.f90
+++ b/base/serial/impl/psb_z_csc_impl.f90
@@ -1159,7 +1159,7 @@ subroutine psb_z_csc_cssm(alpha,a,x,beta,y,info,trans)
 
   if (size(x,1)<m) then 
     info = 36
-    call psb_errpush(info,name,i_err=(/3,n,0,0,0/))
+    call psb_errpush(info,name,i_err=(/3,m,0,0,0/))
     goto 9999
   end if