Have some mpich3 tests use the automatic privatization instead of manual one.

[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..92251df 100644 (file)
--- a/teshsuite/smpi/mpich3-test/f90/pt2pt/allpairf90.f90
+++ b/teshsuite/smpi/mpich3-test/f90/pt2pt/allpairf90.f90
@@ -21,6 +21,7 @@
       call MTest_Init( ierr )
 
       do while ( mtestGetIntraComm( comm, 2, .false. ) )
+
          call test_pair_send( comm, errs )
          call test_pair_ssend( comm, errs )
          !call test_pair_rsend( comm, errs )
@@ -342,7 +343,7 @@
       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)
@@ -824,7 +825,7 @@
       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
 !
@@ -979,7 +980,7 @@
       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