diff --git a/base/modules/psi_reduce_mod.F90 b/base/modules/psi_reduce_mod.F90
index 45d285fe..cca9b4e4 100644
--- a/base/modules/psi_reduce_mod.F90
+++ b/base/modules/psi_reduce_mod.F90
@@ -2569,7 +2569,7 @@ contains
     integer, intent(inout)  :: dat
     integer, intent(in), optional    :: root
     integer :: root_
-    integer(psb_long_int_k_) :: dat_
+    integer :: dat_
     integer :: iam, np, info
 
 #if !defined(SERIAL_MPI)