Better error handling for reallocate1i

6 years ago · 0b28b0fc4b
parent 62499ebe91
commit 0b28b0fc4b
1 changed files with 1 additions and 1 deletions
--- a/base/modules/psb_realloc_mod.F90
+++ b/base/modules/psb_realloc_mod.F90
@ -1561,7 +1561,7 @@ Contains
    if (debug) write(psb_err_unit,*) 'reallocate I',len
    if (psb_get_errstatus() /= 0) then 
      if (debug) write(psb_err_unit,*) 'reallocate errstatus /= 0'
-      info=psb_err_from_subroutine_
+      err=psb_err_from_subroutine_
      goto 9999
    end if