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 )
-         !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_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 )
@@ -899,11 +899,9 @@ c------------------------------------------------------------------------------
       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 )
@@ -913,20 +911,17 @@ c------------------------------------------------------------------------------
          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 )