do while ( mtestGetIntraComm( comm, 2, .false. ) )
call test_pair_send( comm, errs )
call test_pair_ssend( comm, errs )
- !call test_pair_rsend( comm, errs )
+ call test_pair_rsend( comm, errs )
call test_pair_isend( comm, errs )
- !call test_pair_irsend( comm, errs )
+ call test_pair_irsend( comm, errs )
call test_pair_issend( comm, errs )
- !call test_pair_psend( comm, errs )
+ call test_pair_psend( comm, errs )
!call test_pair_prsend( comm, errs )
- call test_pair_pssend( comm, errs )
+ !call test_pair_pssend( comm, errs )
call test_pair_sendrecv( comm, errs )
call test_pair_sendrecvrepl( comm, errs )
call mtestFreeComm( comm )
real recv_buf(n)
integer source, tag, count, rank, status(MPI_STATUS_SIZE)
character*(*) name
- logical foundError
integer ierr, recv_src, recv_tag, recv_count
- foundError = .false.
recv_src = status(MPI_SOURCE)
recv_tag = status(MPI_TAG)
call MPI_Comm_rank( MPI_COMM_WORLD, rank, ierr )
print *, '[', rank, '] Unexpected source:', recv_src,
* ' in ', name
errs = errs + 1
- foundError = .true.
end if
if (recv_tag .ne. tag) then
print *, '[', rank, '] Unexpected tag:', recv_tag, ' in ', name
errs = errs + 1
- foundError = .true.
end if
if (recv_count .ne. count) then
print *, '[', rank, '] Unexpected count:', recv_count,
* ' in ', name
errs = errs + 1
- foundError = .true.
end if
call verify_test_data(recv_buf, count, n, name, errs )