diff --git a/base/modules/psb_realloc_mod.F90 b/base/modules/psb_realloc_mod.F90
index 9d15c6ae..e6629fb2 100644
--- 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