Corrected return on C interface of precinit for already associated prec

5 years ago · 8eae0dc459
parent 8f60a49fc6
commit 8eae0dc459
2 changed files with 182 additions and 184 deletions
--- a/cbind/mlprec/mld_dprec_cbind_mod.F90
+++ b/cbind/mlprec/mld_dprec_cbind_mod.F90
@ -35,9 +35,9 @@ contains
    type(mld_dprec_type), pointer :: precp
    character(len=80)     :: fptype

-    res = -1
    res = -1
    if (c_associated(ph%item)) then
+      res = 0
      return
    end if

@ -378,4 +378,3 @@ contains
  end function mld_c_dprecfree

 end module mld_dprec_cbind_mod
-
--- a/cbind/mlprec/mld_zprec_cbind_mod.F90
+++ b/cbind/mlprec/mld_zprec_cbind_mod.F90
@ -35,9 +35,9 @@ contains
    type(mld_zprec_type), pointer :: precp
    character(len=80)     :: fptype

-    res = -1
    res = -1
    if (c_associated(ph%item)) then
+      res = 0
      return
    end if

@ -378,4 +378,3 @@ contains
  end function mld_c_zprecfree

 end module mld_zprec_cbind_mod
-