Question

使用MPI_Waitall的Fortran代码无法在使用gfortran和openmpi库的系统上编译，但是同一代码可以使用intel fortran编译器（以及intel mpi实现）进行编译。我不知道这是怎么发生或为什么发生。这是无法编译的最小/简单代码示例：

test.f90

program TEST_WAITALL

    use MPI

    implicit none

    integer :: ierr
    integer :: N
    integer, allocatable :: reqs(:)
    integer :: to, tag, count
    double precision :: data(100) 

    N = 5
    reqs = 1

    call MPI_INIT( ierr )
    call MPI_Waitall(N, reqs, MPI_STATUS_IGNORE, ierr)
    call MPI_SEND( data, count, MPI_DOUBLE_PRECISION, to, tag, MPI_COMM_WORLD, ierr )
    call MPI_FINALIZE ( ierr )

end program TEST_WAITALL

请注意，这不是要运行的，显然是“废话”代码。

使用英特尔工具链进行编译时，没有任何问题：

mpiifort test.f90

当我使用gfortran / openmpi工具链进行编译时，出现错误：

mpifort test.f90
test.f90:17:54:

     call MPI_Waitall(N, reqs, MPI_STATUS_IGNORE, ierr)
                                                      1
Error: There is no specific subroutine for the generic ‘mpi_waitall’ at (1)

如果仅注释掉对MPI_Waitall的调用，则代码将同时使用gfortran / openmpi和intel进行编译。因此，正在找到MPI并对其进行链接。

我的第一个猜测是我以某种方式对MPI_Waitall使用了错误的接口，并且试图传递错误类型的参数，但据在线文档所知，我看不到类型有任何问题。

我还将状态数组中的第三个参数更改为MPI_STATUS_IGNORE，以查看是否可以解决问题，但不能解决问题。

我通过ubuntu上的软件包管理器（apt）安装了openmpi-bin，编译器信息如下：

mpifort -v
Using built-in specs.
COLLECT_GCC=/usr/bin/gfortran
COLLECT_LTO_WRAPPER=/usr/lib/gcc/x86_64-linux-gnu/7/lto-wrapper
OFFLOAD_TARGET_NAMES=nvptx-none
OFFLOAD_TARGET_DEFAULT=1
Target: x86_64-linux-gnu
Configured with: ../src/configure -v --with-pkgversion='Ubuntu 7.3.0-27ubuntu1~18.04' --with-bugurl=file:///usr/share/doc/gcc-7/README.Bugs --enable-languages=c,ada,c++,go,brig,d,fortran,objc,obj-c++ --prefix=/usr --with-gcc-major-version-only --program-suffix=-7 --program-prefix=x86_64-linux-gnu- --enable-shared --enable-linker-build-id --libexecdir=/usr/lib --without-included-gettext --enable-threads=posix --libdir=/usr/lib --enable-nls --with-sysroot=/ --enable-clocale=gnu --enable-libstdcxx-debug --enable-libstdcxx-time=yes --with-default-libstdcxx-abi=new --enable-gnu-unique-object --disable-vtable-verify --enable-libmpx --enable-plugin --enable-default-pie --with-system-zlib --with-target-system-zlib --enable-objc-gc=auto --enable-multiarch --disable-werror --with-arch-32=i686 --with-abi=m64 --with-multilib-list=m32,m64,mx32 --enable-multilib --with-tune=generic --enable-offload-targets=nvptx-none --without-cuda-driver --enable-checking=release --build=x86_64-linux-gnu --host=x86_64-linux-gnu --target=x86_64-linux-gnu
Thread model: posix
gcc version 7.3.0 (Ubuntu 7.3.0-27ubuntu1~18.04)

Answer 1

您必须使用MPI_STATUSES_IGNORE而不是MPI_STATUS_IGNORE，因为它是多个状态，每个状态对应每个请求。

openmpi和gfortran错误：通用“ mpi_waitall”没有特定的子例程

1 个答案: