Skip to content

Commit f123b9f

Browse files
committed
fortran: Fix MPI_ARGV(S)_NULL compilation error
Fortran constants `MPI_ARGV_NULL` and `MPI_ARGVS_NULL` are defined in MPI-3.1 p.680 as below. > `MPI_ARGVS_NULL` > 2-dim. array of `CHARACTER*(*)` > `MPI_ARGV_NULL` > array of `CHARACTER*(*)` `MPI_ARGV_NULL` and `MPI_ARGVS_NULL` are used as an argument of `MPI_COMM_SPAWN` and `MPI_COMM_SPAWN_MULTIPLE` respectively and their argument `argv` and `array_of_argv` are defined as below for `USE mpi_f08` binding in MPI-3.1. ``` CHARACTER(LEN=*), INTENT(IN) :: argv(*) CHARACTER(LEN=*), INTENT(IN) :: array_of_argv(count, *) ``` Defining them as `INTEGER` in `mpi_f08` module will cause a compilation error of user programs like "There is no specific subroutine for the generic 'mpi_comm_spawn'". Signed-off-by: KAWASHIMA Takahiro <[email protected]> (cherry picked from commit 0fcd964)
1 parent a1b1855 commit f123b9f

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

ompi/mpi/fortran/base/gen-mpi-mangling.pl

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -77,13 +77,13 @@
7777
$fortran->{argv_null} = {
7878
c_type => "char *",
7979
c_name => "mpi_fortran_argv_null",
80-
f_type => "integer",
80+
f_type => "character, dimension(1)",
8181
f_name => "MPI_ARGV_NULL",
8282
};
8383
$fortran->{argvs_null} = {
8484
c_type => "char *",
8585
c_name => "mpi_fortran_argvs_null",
86-
f_type => "integer",
86+
f_type => "character, dimension(1, 1)",
8787
f_name => "MPI_ARGVS_NULL",
8888
};
8989

0 commit comments

Comments
 (0)