[mpich2-commits] r6650 - mpich2/trunk/test/mpi/pt2pt

[thakur at mcs.anl.gov]

Author: thakur
Date: 2010-05-14 17:01:30 -0500 (Fri, 14 May 2010)
New Revision: 6650

Modified:
   mpich2/trunk/test/mpi/pt2pt/large_message.c
   mpich2/trunk/test/mpi/pt2pt/testlist
Log:
update large_message test to use 3 processes in order to exercise both shared memory and TCP in Nemesis

Modified: mpich2/trunk/test/mpi/pt2pt/large_message.c
===================================================================
--- mpich2/trunk/test/mpi/pt2pt/large_message.c	2010-05-14 21:53:22 UTC (rev 6649)
+++ mpich2/trunk/test/mpi/pt2pt/large_message.c	2010-05-14 22:01:30 UTC (rev 6650)
@@ -8,7 +8,8 @@
 #include <stdlib.h>
 #include "mpitest.h"
 
-/* tests send/recv of a message > 2GB. count=270M, type=long long */
+/* tests send/recv of a message > 2GB. count=270M, type=long long 
+   run with 3 processes to exercise both shared memory and TCP in Nemesis tests*/
 
 int main(int argc, char *argv[]) 
 {
@@ -22,8 +23,8 @@
   MTest_Init(&argc,&argv); 
   ierr = MPI_Comm_size(MPI_COMM_WORLD,&size);
   ierr = MPI_Comm_rank(MPI_COMM_WORLD,&rank);
-  if (size != 2) {
-    fprintf(stderr,"[%d] usage: mpiexec -n 2 %s\n",rank,argv[0]);
+  if (size != 3) {
+    fprintf(stderr,"[%d] usage: mpiexec -n 3 %s\n",rank,argv[0]);
     MPI_Abort(MPI_COMM_WORLD,1);
   }
 
@@ -32,6 +33,7 @@
     for (i=0; i<cnt; i++) cols[i] = i;
     /* printf("[%d] sending...\n",rank);*/
     ierr = MPI_Send(cols,cnt,MPI_LONG_LONG_INT,1,0,MPI_COMM_WORLD);
+    ierr = MPI_Send(cols,cnt,MPI_LONG_LONG_INT,2,0,MPI_COMM_WORLD);
   } else {
       /* printf("[%d] receiving...\n",rank); */
     for (i=0; i<cnt; i++) cols[i] = -1;
@@ -40,7 +42,7 @@
        Get_count still fails because status.count is not 64 bit */
     for (i=0; i<cnt; i++) {
         if (cols[i] != i) {
-            printf("cols[i]=%lld, should be %d\n", cols[i], i);
+            printf("Rank %d, cols[i]=%lld, should be %d\n", rank, cols[i], i);
             errs++;
         }
     }

Modified: mpich2/trunk/test/mpi/pt2pt/testlist
===================================================================
--- mpich2/trunk/test/mpi/pt2pt/testlist	2010-05-14 21:53:22 UTC (rev 6649)
+++ mpich2/trunk/test/mpi/pt2pt/testlist	2010-05-14 22:01:30 UTC (rev 6650)
@@ -35,4 +35,4 @@
 inactivereq 1
 waittestnull 1
 waitany-null 1
-large_message 2
+large_message 3