From 9bf93810d7d5ec35dea8de94a0037bf8629817fc Mon Sep 17 00:00:00 2001 From: KAWASHIMA Takahiro Date: Thu, 29 Oct 2015 20:55:54 +0900 Subject: [PATCH] fortran: Fix: array dimension of `MPI_ARGVS_NULL`. `MPI_ARGVS_NULL` should be a two-dimensional array. Without this modification, gfortran throw the following error if `MPI_ARGVS_NULL` is used for `MPI_COMM_SPAWN_MULTIPLE`. Error: There is no specific subroutine for the generic 'mpi_comm_spawn_multiple' at (1) --- ompi/include/mpif-sentinels.h | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/ompi/include/mpif-sentinels.h b/ompi/include/mpif-sentinels.h index 59de52e941..4ae7934f6e 100644 --- a/ompi/include/mpif-sentinels.h +++ b/ompi/include/mpif-sentinels.h @@ -41,7 +41,7 @@ ! don't need another interface for MPI_COMM_SPAWN. character MPI_ARGV_NULL(1) ! Ditto for MPI_ARGVS_NULL / MPI_COMM_SPAWN_MULTIPLE. - character MPI_ARGVS_NULL(1) + character MPI_ARGVS_NULL(1, 1) ! MPI_ERRCODES_IGNORE has similar rationale to MPI_ARGV_NULL. The ! F77 functions are all smart enough to check that the errcodes ! parameter is not ERRCODES_IGNORE before assigning values into it