A
lgorithmique
N
umérique
D
istribuée
Public GIT Repository
projects
/
simgrid.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
finally activate all weird modes of allpairf(90)
[simgrid.git]
/
teshsuite
/
smpi
/
mpich3-test
/
f77
/
pt2pt
/
allpairf.f
diff --git
a/teshsuite/smpi/mpich3-test/f77/pt2pt/allpairf.f
b/teshsuite/smpi/mpich3-test/f77/pt2pt/allpairf.f
index
750c568
..
49b047f
100644
(file)
--- a/
teshsuite/smpi/mpich3-test/f77/pt2pt/allpairf.f
+++ b/
teshsuite/smpi/mpich3-test/f77/pt2pt/allpairf.f
@@
-23,12
+23,12
@@
C verbose = .true.
do while ( mtestGetIntraComm( comm, 2, .false. ) )
call test_pair_send( comm, errs )
call test_pair_ssend( comm, errs )
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_isend( comm, errs )
-
!
call test_pair_irsend( comm, errs )
+ call test_pair_irsend( comm, errs )
call test_pair_issend( comm, errs )
call test_pair_issend( comm, errs )
-
!
call test_pair_psend( comm, errs )
-
!
call test_pair_prsend( comm, errs )
+ call test_pair_psend( comm, errs )
+ call test_pair_prsend( comm, errs )
call test_pair_pssend( comm, errs )
call test_pair_sendrecv( comm, errs )
call test_pair_sendrecvrepl( comm, errs )
call test_pair_pssend( comm, errs )
call test_pair_sendrecv( comm, errs )
call test_pair_sendrecvrepl( comm, errs )
@@
-899,11
+899,9
@@
c------------------------------------------------------------------------------
real recv_buf(n)
integer source, tag, count, rank, status(MPI_STATUS_SIZE)
character*(*) name
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
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 )
recv_src = status(MPI_SOURCE)
recv_tag = status(MPI_TAG)
call MPI_Comm_rank( MPI_COMM_WORLD, rank, ierr )
@@
-913,20
+911,17
@@
c------------------------------------------------------------------------------
print *, '[', rank, '] Unexpected source:', recv_src,
* ' in ', name
errs = errs + 1
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
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
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 )
end if
call verify_test_data(recv_buf, count, n, name, errs )