Logo AND Algorithmique Numérique Distribuée

Public GIT Repository
Merge commit '045db1657e870c721be490b411868f4181a12ced' into surf++
[simgrid.git] / teshsuite / smpi / mpich3-test / f90 / pt2pt / allpairf90.f90
index a7726e9..70f5c51 100644 (file)
       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
       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
 !
       integer n, errs
       real buf(n)
       character *(*) name
-      integer count, ierr, i
+      integer count, i
 !
       do 10 i = 1, count
          if (buf(i) .ne. REAL(i)) then