Fix uninitialized info

4 years ago · 4f1b568b99
parent 76900aedff
commit 4f1b568b99
4 changed files with 4 additions and 0 deletions
--- 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
--- 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
--- 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
--- 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