diff --git a/ompi/mpi/f90/scripts/mpi-f90-interfaces.h.sh b/ompi/mpi/f90/scripts/mpi-f90-interfaces.h.sh
index 32ca931cd0..dae266e4be 100755
--- a/ompi/mpi/f90/scripts/mpi-f90-interfaces.h.sh
+++ b/ompi/mpi/f90/scripts/mpi-f90-interfaces.h.sh
@@ -1120,7 +1120,7 @@ subroutine ${procedure}(comm, maxdims, dims, periods, coords&
   integer, intent(in) :: comm
   integer, intent(in) :: maxdims
   integer, dimension(*), intent(out) :: dims
-  integer, dimension(*), intent(out) :: periods
+  logical, dimension(*), intent(out) :: periods
   integer, dimension(*), intent(out) :: coords
   integer, intent(out) :: ierr
 end subroutine ${procedure}