fortran: Fix: missing dimension(*) in (I)NEIGHBOR_ALLTOALLW.

(cherry picked from commit open-mpi/ompi@384f4b5)

Author: kawashima-fj

ompi/mpi/fortran/use-mpi-ignore-tkr/mpi-ignore-tkr-interfaces.h.in

@@ -3613,12 +3613,12 @@ subroutine MPI_Ineighbor_alltoallw(sendbuf, sendcounts, sdispls, sendtypes, recv
   @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ sendbuf
   @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: sendbuf
   integer, dimension(*), intent(in) :: sendcounts
-  integer(kind=MPI_ADDRESS_KIND), intent(in) :: sdispls
+  integer(kind=MPI_ADDRESS_KIND), dimension(*), intent(in) :: sdispls
   integer, dimension(*), intent(in) :: sendtypes
   @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ recvbuf
   @OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: recvbuf
   integer, dimension(*), intent(in) :: recvcounts
-  integer(kind=MPI_ADDRESS_KIND), intent(in) :: rdispls
+  integer(kind=MPI_ADDRESS_KIND), dimension(*), intent(in) :: rdispls
   integer, dimension(*), intent(in) :: recvtypes
   integer, intent(in) :: comm
   integer, intent(out) :: request
@@ -3635,12 +3635,12 @@ subroutine PMPI_Ineighbor_alltoallw(sendbuf, sendcounts, sdispls, sendtypes, rec
   @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ sendbuf
   @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: sendbuf
   integer, dimension(*), intent(in) :: sendcounts
-  integer(kind=MPI_ADDRESS_KIND), intent(in) :: sdispls
+  integer(kind=MPI_ADDRESS_KIND), dimension(*), intent(in) :: sdispls
   integer, dimension(*), intent(in) :: sendtypes
   @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ recvbuf
   @OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: recvbuf
   integer, dimension(*), intent(in) :: recvcounts
-  integer(kind=MPI_ADDRESS_KIND), intent(in) :: rdispls
+  integer(kind=MPI_ADDRESS_KIND), dimension(*), intent(in) :: rdispls
   integer, dimension(*), intent(in) :: recvtypes
   integer, intent(in) :: comm
   integer, intent(out) :: request
@@ -4675,12 +4675,12 @@ subroutine MPI_Neighbor_alltoallw(sendbuf, sendcounts, sdispls, sendtypes, recvb
   @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ sendbuf
   @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: sendbuf
   integer, dimension(*), intent(in) :: sendcounts
-  integer(kind=MPI_ADDRESS_KIND), intent(in) :: sdispls
+  integer(kind=MPI_ADDRESS_KIND), dimension(*), intent(in) :: sdispls
   integer, dimension(*), intent(in) :: sendtypes
   @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ recvbuf
   @OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: recvbuf
   integer, dimension(*), intent(in) :: recvcounts
-  integer(kind=MPI_ADDRESS_KIND), intent(in) :: rdispls
+  integer(kind=MPI_ADDRESS_KIND), dimension(*), intent(in) :: rdispls
   integer, dimension(*), intent(in) :: recvtypes
   integer, intent(in) :: comm
   integer, intent(out) :: ierror
@@ -4696,12 +4696,12 @@ subroutine PMPI_Neighbor_alltoallw(sendbuf, sendcounts, sdispls, sendtypes, recv
   @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ sendbuf
   @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: sendbuf
   integer, dimension(*), intent(in) :: sendcounts
-  integer(kind=MPI_ADDRESS_KIND), intent(in) :: sdispls
+  integer(kind=MPI_ADDRESS_KIND), dimension(*), intent(in) :: sdispls
   integer, dimension(*), intent(in) :: sendtypes
   @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ recvbuf
   @OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: recvbuf
   integer, dimension(*), intent(in) :: recvcounts
-  integer(kind=MPI_ADDRESS_KIND), intent(in) :: rdispls
+  integer(kind=MPI_ADDRESS_KIND), dimension(*), intent(in) :: rdispls
   integer, dimension(*), intent(in) :: recvtypes
   integer, intent(in) :: comm
   integer, intent(out) :: ierror