1 Вопрос: openmpi и gfortran error: нет специальной подпрограммы для универсального «mpi_waitall»

вопрос создан в Thu, May 2, 2019 12:00 AM

Код Fortran с использованием MPI_Waitall не будет компилироваться в моей системе с 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

Обратите внимание, что этот код не предназначен для запуска и является явно "бессмысленным" кодом.

Когда я компилирую с набором инструментов intel, проблем не возникает:

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, чтобы посмотреть, решит ли это проблему, но это не так.

У меня есть openmpi-bin, установленный через менеджер пакетов (apt) в Ubuntu, и информация о компиляторе выглядит следующим образом:

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) 
    
0
  1. вы должны использовать MPI_STATUSES_IGNORE, а не MPI_STATUS_IGNORE
    2019-05-02 14: 53: 27Z
  2. "Я также изменил третий аргумент из массива состояний на MPI_STATUS_IGNORE, чтобы посмотреть, решит ли это проблему, но это не так." Приведенный выше комментарий и ответ VladimirF касаются случая MPI_STATUS_IGNORE, но можете ли вы показать нам, что вы написали с помощью массива статусов - это также должно работать.
    2019-05-02 15: 15: 28Z
  3. Спасибо @GillesGouaillardet, вы на 100% правы. К сожалению, ошибка в моем коде отличалась от ошибки в простом примере (чисто моя ошибка). Сокращая до минимума один пример, я упустил реальную ошибку в упрощении и взял другую! В реальном коде я передавал несмежный массив как второй аргумент MPI_Waitall. openmpi это не понравилось, но Intel Fortran, похоже, справился с этим.
    2019-05-02 15: 27: 56Z
  4. Можете ли вы опубликовать пример Minimal, Complete и Verifiable с первоначальная ошибка? Это может указывать на ошибку в Open MPI или Intel MPI (на основе MPICH)
    2019-05-02 15: 36: 33Z
  5. Я могу воспроизвести это с помощью приведенного выше кода, изменив вызов waitall на call MPI_Waitall(N, reqs(selection), MPI_STATUSES_IGNORE, ierr) и добавив объявление переменной integer, allocatable :: selection(:). Это компилируется с intel, но не openmpi.
    2019-05-03 06: 45: 54Z
1 ответ                              1                         

Вы должны использовать MPI_STATUSES_IGNORE, а не MPI_STATUS_IGNORE, потому что это несколько статусов, каждый для каждого запроса.

    
1
2019-05-02 15: 13: 07Z
источник размещен Вот