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
Merge commit '045db1657e870c721be490b411868f4181a12ced' into surf++
[simgrid.git]
/
teshsuite
/
smpi
/
mpich3-test
/
f90
/
pt2pt
/
allpairf90.f90
diff --git
a/teshsuite/smpi/mpich3-test/f90/pt2pt/allpairf90.f90
b/teshsuite/smpi/mpich3-test/f90/pt2pt/allpairf90.f90
index
a7726e9
..
70f5c51
100644
(file)
--- a/
teshsuite/smpi/mpich3-test/f90/pt2pt/allpairf90.f90
+++ b/
teshsuite/smpi/mpich3-test/f90/pt2pt/allpairf90.f90
@@
-342,7
+342,7
@@
subroutine test_pair_irsend( comm, errs )
use mpi
integer comm, errs
subroutine test_pair_irsend( comm, errs )
use mpi
integer comm, errs
- integer rank, size, ierr, next, prev, tag, count, index
, i
+ integer rank, size, ierr, next, prev, tag, count, index
integer TEST_SIZE
integer dupcom
parameter (TEST_SIZE=2000)
integer TEST_SIZE
integer dupcom
parameter (TEST_SIZE=2000)
@@
-824,7
+824,7
@@
integer TEST_SIZE
parameter (TEST_SIZE=2000)
integer status(MPI_STATUS_SIZE)
integer TEST_SIZE
parameter (TEST_SIZE=2000)
integer status(MPI_STATUS_SIZE)
- real
send_buf(TEST_SIZE),
recv_buf(TEST_SIZE)
+ real recv_buf(TEST_SIZE)
logical verbose
common /flags/ verbose
!
logical verbose
common /flags/ verbose
!
@@
-979,7
+979,7
@@
integer n, errs
real buf(n)
character *(*) name
integer n, errs
real buf(n)
character *(*) name
- integer count, i
err, i
+ integer count, i
!
do 10 i = 1, count
if (buf(i) .ne. REAL(i)) then
!
do 10 i = 1, count
if (buf(i) .ne. REAL(i)) then