Hi, Evan after recompiling OpenMPI with -fdefault-real-8, it fails with same error.
It seems to me that, it's an issue with OpenMPI itself, because: Intel MPI + gnu compiler --- works Intel MPI + intel compiler --- works Open MPI + gnu compiler --- fails Open MPI + AOCC compiler --- fails Will send the minimal program shortly On Mon, Aug 19, 2019 at 4:01 PM Gilles Gouaillardet via users < users@lists.open-mpi.org> wrote: > Thanks, but this is not really helping. > > Could you please build a Minimal, Reproducible Example as described at > https://stackoverflow.com/help/minimal-reproducible-example ? > > Cheers, > > Gilles > > On Mon, Aug 19, 2019 at 7:19 PM Sangam B via users > <users@lists.open-mpi.org> wrote: > > > > Hi, > > > > Here is the sample program snippet: > > > > -------- > > #include "intrinsic_sizes.h" > > #include "redef.h" > > > > module module1_m > > > > use mod1_m, only: some__example2 > > use mod2_m, only: some__example3 > > use mod3_m, only: some__example4 > > > > use mpi > > use, intrinsic :: iso_c_binding > > > > implicit none > > > > private > > > > public :: some__example___memory > > > > type, public, extends(some__example5) :: some__example6 > > logical, public :: some__example7 = .False. > > class(some__example8), private, pointer :: some__example9 > > contains > > > > ... > > ... > > end type some__example6 > > > > contains > > .... > > some_pure_functions here > > .... > > > > > > subroutine recv(this,lmb) > > class(some__example6), intent(inout) :: this > > integer, intent(in) :: lmb(2,2) > > > > integer :: cs3, ierr > > integer(kind=C_LONG) :: size > > > > ! receive only from buffer at different process > > if(this%is_bf_referred) return > > > > cs3=this%uspecifier%get_recv_buff_3rd_dim_size(this%xb,this%vwb,lmb) > > if(cs3.eq.0) return ! nothing to recv > > > > size = this%size_dim(this%gi)*this%size_dim(this%gj)*cs3 > > if(this%is_exchange_off) then > > call this%update_stats(size) > > this%bf(:,:,1:cs3) = cmplx(0.,0.) > > else > > call MPI_Irecv(this%bf(:,:,1:cs3),size,MPI_COMPLEX_TYPE,& > > this%nrank,this%tag,this%comm_xvw,this%request,ierr) > > end if > > end subroutine recv > > > > > > Hope this helps. > > > > On Mon, Aug 19, 2019 at 3:21 PM Gilles Gouaillardet via users < > users@lists.open-mpi.org> wrote: > >> > >> Thanks, > >> > >> and your reproducer is ? > >> > >> Cheers, > >> > >> Gilles > >> > >> On Mon, Aug 19, 2019 at 6:42 PM Sangam B via users > >> <users@lists.open-mpi.org> wrote: > >> > > >> > Hi, > >> > > >> > OpenMPI is configured as follows: > >> > > >> > export CC=`which clang` > >> > export CXX=`which clang++` > >> > export FC=`which flang` > >> > export F90=`which flang` > >> > > >> > ../configure --prefix=/sw/openmpi/3.1.1/aocc20hpcx210-mpifort > --enable-mpi-fortran --enable-mpi-cxx --without-psm --without-psm2 > --without-knem --without-libfabric --without-lsf --with-verbs=/usr > --with-mxm=/sw/hpcx/hpcx-v2.1.0-gcc-MLNX_OFED_LINUX-4.3-1.0.1.0-redhat7.4-x86_64/mxm > >> > > >> > > >> > .. > >> > > >> > On Mon, Aug 19, 2019 at 2:43 PM Sangam B <forum....@gmail.com> wrote: > >> >> > >> >> Hi, > >> >> > >> >> I get following error if the application is compiled with > openmpi-3.1.1: > >> >> > >> >> mpifort -O3 -march=native -funroll-loops -finline-aggressive -flto > -J./bin/obj_amd64aocc20 -std=f2008 -O3 -march=native -funroll-loops > -finline-aggressive -flto -fallow-fortran-gnu-ext -ffree-form > -fdefault-real-8 example_program.F90 > >> >> F90-S-0155-Could not resolve generic procedure mpi_irecv ( > example_program.F90 : 97) > >> >> 0 inform, 0 warnings, 1 severes, 0 fatal for recv > >> >> > >> >> Following is the line causing this error: > >> >> > >> >> call MPI_Irecv(this%bf(:,:,1:cs3),size,MPI_COMPLEX_TYPE,& > >> >> this%nrank,this%tag,this%comm_xvw,this%request,ierr) > >> >> > >> >> The program has following module mentioned in the beginning: > >> >> use mpi > >> >> > >> >> The openmpi has following module files in lib folder: > >> >> $ ls *.mod > >> >> mpi_ext.mod mpi_f08_ext.mod > mpi_f08_interfaces.mod mpi_f08_types.mod pmpi_f08_interfaces.mod > >> >> mpi_f08_callbacks.mod mpi_f08_interfaces_callbacks.mod > mpi_f08.mod mpi.mod > >> >> > >> >> The same program works with Intel MPI (gcc/intel as base compilers). > >> >> But fails with OpenMPI, whether gcc-8.1.0 or AOCC are used as base > compilers. What could be the reason for it? > >> >> > >> >> .. > >> > > >> > _______________________________________________ > >> > users mailing list > >> > users@lists.open-mpi.org > >> > https://lists.open-mpi.org/mailman/listinfo/users > >> _______________________________________________ > >> users mailing list > >> users@lists.open-mpi.org > >> https://lists.open-mpi.org/mailman/listinfo/users > > > > _______________________________________________ > > users mailing list > > users@lists.open-mpi.org > > https://lists.open-mpi.org/mailman/listinfo/users > _______________________________________________ > users mailing list > users@lists.open-mpi.org > https://lists.open-mpi.org/mailman/listinfo/users >
_______________________________________________ users mailing list users@lists.open-mpi.org https://lists.open-mpi.org/mailman/listinfo/users