diff --git a/base/serial/impl/psb_c_base_mat_impl.f90 b/base/serial/impl/psb_c_base_mat_impl.f90
index ca3e9a4f..df776715 100644
--- a/base/serial/impl/psb_c_base_mat_impl.f90
+++ b/base/serial/impl/psb_c_base_mat_impl.f90
@@ -82,6 +82,7 @@ subroutine psb_c_base_cp_to_fmt(a,b,info)
   !
   ! Default implementation
   ! 
+  info = psb_success_
   call a%cp_to_coo(tmp,info)
   if (info == psb_success_) call b%mv_from_coo(tmp,info)
 
@@ -106,6 +107,7 @@ subroutine psb_c_base_cp_from_fmt(a,b,info)
   !
   ! Default implementation
   ! 
+  info = psb_success_
   call b%cp_to_coo(tmp,info)
   if (info == psb_success_) call a%mv_from_coo(tmp,info)
 
@@ -186,7 +188,7 @@ subroutine psb_c_base_mv_to_fmt(a,b,info)
   !
   ! Default implementation
   ! 
-
+  info = psb_success_
   call a%mv_to_coo(tmp,info)
   if (info == psb_success_) call b%mv_from_coo(tmp,info)
 
@@ -211,6 +213,7 @@ subroutine psb_c_base_mv_from_fmt(a,b,info)
   !
   ! Default implementation
   ! 
+  info = psb_success_
   call b%mv_to_coo(tmp,info)
   if (info == psb_success_) call a%mv_from_coo(tmp,info)
 
diff --git a/base/serial/impl/psb_d_base_mat_impl.f90 b/base/serial/impl/psb_d_base_mat_impl.f90
index 1cc3af38..e3acf90f 100644
--- a/base/serial/impl/psb_d_base_mat_impl.f90
+++ b/base/serial/impl/psb_d_base_mat_impl.f90
@@ -82,6 +82,7 @@ subroutine psb_d_base_cp_to_fmt(a,b,info)
   !
   ! Default implementation
   ! 
+  info = psb_success_
   call a%cp_to_coo(tmp,info)
   if (info == psb_success_) call b%mv_from_coo(tmp,info)
 
@@ -106,6 +107,7 @@ subroutine psb_d_base_cp_from_fmt(a,b,info)
   !
   ! Default implementation
   ! 
+  info = psb_success_
   call b%cp_to_coo(tmp,info)
   if (info == psb_success_) call a%mv_from_coo(tmp,info)
 
@@ -186,7 +188,7 @@ subroutine psb_d_base_mv_to_fmt(a,b,info)
   !
   ! Default implementation
   ! 
-
+  info = psb_success_
   call a%mv_to_coo(tmp,info)
   if (info == psb_success_) call b%mv_from_coo(tmp,info)
 
@@ -211,6 +213,7 @@ subroutine psb_d_base_mv_from_fmt(a,b,info)
   !
   ! Default implementation
   ! 
+  info = psb_success_
   call b%mv_to_coo(tmp,info)
   if (info == psb_success_) call a%mv_from_coo(tmp,info)
 
diff --git a/base/serial/impl/psb_s_base_mat_impl.f90 b/base/serial/impl/psb_s_base_mat_impl.f90
index d1c8f094..0da77fc5 100644
--- a/base/serial/impl/psb_s_base_mat_impl.f90
+++ b/base/serial/impl/psb_s_base_mat_impl.f90
@@ -82,6 +82,7 @@ subroutine psb_s_base_cp_to_fmt(a,b,info)
   !
   ! Default implementation
   ! 
+  info = psb_success_
   call a%cp_to_coo(tmp,info)
   if (info == psb_success_) call b%mv_from_coo(tmp,info)
 
@@ -106,6 +107,7 @@ subroutine psb_s_base_cp_from_fmt(a,b,info)
   !
   ! Default implementation
   ! 
+  info = psb_success_
   call b%cp_to_coo(tmp,info)
   if (info == psb_success_) call a%mv_from_coo(tmp,info)
 
@@ -186,7 +188,7 @@ subroutine psb_s_base_mv_to_fmt(a,b,info)
   !
   ! Default implementation
   ! 
-
+  info = psb_success_
   call a%mv_to_coo(tmp,info)
   if (info == psb_success_) call b%mv_from_coo(tmp,info)
 
@@ -211,6 +213,7 @@ subroutine psb_s_base_mv_from_fmt(a,b,info)
   !
   ! Default implementation
   ! 
+  info = psb_success_
   call b%mv_to_coo(tmp,info)
   if (info == psb_success_) call a%mv_from_coo(tmp,info)
 
diff --git a/base/serial/impl/psb_z_base_mat_impl.f90 b/base/serial/impl/psb_z_base_mat_impl.f90
index 8c429b31..1e3e7767 100644
--- a/base/serial/impl/psb_z_base_mat_impl.f90
+++ b/base/serial/impl/psb_z_base_mat_impl.f90
@@ -82,6 +82,7 @@ subroutine psb_z_base_cp_to_fmt(a,b,info)
   !
   ! Default implementation
   ! 
+  info = psb_success_
   call a%cp_to_coo(tmp,info)
   if (info == psb_success_) call b%mv_from_coo(tmp,info)
 
@@ -106,6 +107,7 @@ subroutine psb_z_base_cp_from_fmt(a,b,info)
   !
   ! Default implementation
   ! 
+  info = psb_success_
   call b%cp_to_coo(tmp,info)
   if (info == psb_success_) call a%mv_from_coo(tmp,info)
 
@@ -186,7 +188,7 @@ subroutine psb_z_base_mv_to_fmt(a,b,info)
   !
   ! Default implementation
   ! 
-
+  info = psb_success_
   call a%mv_to_coo(tmp,info)
   if (info == psb_success_) call b%mv_from_coo(tmp,info)
 
@@ -211,6 +213,7 @@ subroutine psb_z_base_mv_from_fmt(a,b,info)
   !
   ! Default implementation
   ! 
+  info = psb_success_
   call b%mv_to_coo(tmp,info)
   if (info == psb_success_) call a%mv_from_coo(tmp,info)