finally activate all weird modes of allpairf(90)

diff --git a/teshsuite/smpi/mpich3-test/f77/pt2pt/allpairf.f b/teshsuite/smpi/mpich3-test/f77/pt2pt/allpairf.f
index f3ef158..49b047f 100644 (file)
--- a/teshsuite/smpi/mpich3-test/f77/pt2pt/allpairf.f
+++ b/teshsuite/smpi/mpich3-test/f77/pt2pt/allpairf.f
@@ -28,8 +28,8 @@ C      verbose = .true.
          call test_pair_irsend( comm, errs )
          call test_pair_issend( comm, errs )
          call test_pair_psend( 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_pssend( 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 mtestFreeComm( comm )
          call test_pair_sendrecv( comm, errs )
          call test_pair_sendrecvrepl( comm, errs )
          call mtestFreeComm( comm )

diff --git a/teshsuite/smpi/mpich3-test/f90/pt2pt/allpairf90.f90 b/teshsuite/smpi/mpich3-test/f90/pt2pt/allpairf90.f90
index 3500615..c20238b 100644 (file)
--- a/teshsuite/smpi/mpich3-test/f90/pt2pt/allpairf90.f90
+++ b/teshsuite/smpi/mpich3-test/f90/pt2pt/allpairf90.f90
@@ -29,8 +29,8 @@
          call test_pair_irsend( comm, errs )
          call test_pair_issend( comm, errs )
          call test_pair_psend( 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_pssend( 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 mtestFreeComm( comm )
          call test_pair_sendrecv( comm, errs )
          call test_pair_sendrecvrepl( comm, errs )
          call mtestFreeComm( comm )