diff --git a/cbind/base/psb_c_tools_cbind_mod.F90 b/cbind/base/psb_c_tools_cbind_mod.F90
index 612a3d21..84fea6d7 100644
--- a/cbind/base/psb_c_tools_cbind_mod.F90
+++ b/cbind/base/psb_c_tools_cbind_mod.F90
@@ -116,6 +116,7 @@ contains
     integer(psb_c_ipk_)               :: ixb, info
 
     res = -1
+    info = 0 
     if (c_associated(cdh%item)) then
       call c_f_pointer(cdh%item,descp)
     else
diff --git a/cbind/base/psb_d_tools_cbind_mod.F90 b/cbind/base/psb_d_tools_cbind_mod.F90
index b64faa62..08e214a5 100644
--- a/cbind/base/psb_d_tools_cbind_mod.F90
+++ b/cbind/base/psb_d_tools_cbind_mod.F90
@@ -116,6 +116,7 @@ contains
     integer(psb_c_ipk_)               :: ixb, info
 
     res = -1
+    info = 0 
     if (c_associated(cdh%item)) then
       call c_f_pointer(cdh%item,descp)
     else
diff --git a/cbind/base/psb_s_tools_cbind_mod.F90 b/cbind/base/psb_s_tools_cbind_mod.F90
index 67c7fc0e..d9584338 100644
--- a/cbind/base/psb_s_tools_cbind_mod.F90
+++ b/cbind/base/psb_s_tools_cbind_mod.F90
@@ -116,6 +116,7 @@ contains
     integer(psb_c_ipk_)               :: ixb, info
 
     res = -1
+    info = 0 
     if (c_associated(cdh%item)) then
       call c_f_pointer(cdh%item,descp)
     else
diff --git a/cbind/base/psb_z_tools_cbind_mod.F90 b/cbind/base/psb_z_tools_cbind_mod.F90
index 74e0c962..572eeb95 100644
--- a/cbind/base/psb_z_tools_cbind_mod.F90
+++ b/cbind/base/psb_z_tools_cbind_mod.F90
@@ -116,6 +116,7 @@ contains
     integer(psb_c_ipk_)               :: ixb, info
 
     res = -1
+    info = 0 
     if (c_associated(cdh%item)) then
       call c_f_pointer(cdh%item,descp)
     else