Add a new entry in the MPI_Status struct. We need a place to keep the cancelled flag which can

be set using MPI_Status_set_cancelled.

This commit was SVN r4522.

include/mpi.h

@@ -66,6 +66,7 @@ struct ompi_status_public_t {
   int MPI_TAG;
   int MPI_ERROR;
   int _count;
+  int _cancelled;
 };
 typedef struct ompi_status_public_t ompi_status_public_t;
 

include/mpif.h.in

@@ -95,7 +95,7 @@
        parameter (MPI_CART=1)
        parameter (MPI_GRAPH=2)
        parameter (MPI_KEYVAL_INVALID=-1)
-       parameter (MPI_STATUS_SIZE=4)
+       parameter (MPI_STATUS_SIZE=5)
        parameter (MPI_SOURCE=1)
        parameter (MPI_TAG=2)
        parameter (MPI_ERROR=3)

src/mpi/c/status_set_cancelled.c

@@ -36,7 +36,7 @@ int MPI_Status_set_cancelled(MPI_Status *status, int flag)
         OMPI_ERR_INIT_FINALIZE(FUNC_NAME);
     }
 
-  /* This function is not yet implemented */
+    status->_cancelled = flag;
 
     return OMPI_ERRHANDLER_INVOKE(MPI_COMM_WORLD, MPI_ERR_OTHER, FUNC_NAME);
 }

src/mpi/c/test_cancelled.c

@@ -33,6 +33,7 @@ static const char FUNC_NAME[] = "MPI_Test_cancelled";
 int MPI_Test_cancelled(MPI_Status *status, int *flag) 
 {
     int rc = MPI_SUCCESS;
+
     if (MPI_PARAM_CHECK) {
         OMPI_ERR_INIT_FINALIZE(FUNC_NAME);
         if (NULL == flag || NULL == status) {
@@ -40,7 +41,7 @@ int MPI_Test_cancelled(MPI_Status *status, int *flag)
         }
     }
 
-  *flag = 0;
+    *flag = status->_cancelled;
     return rc;
 }
 

src/request/request.c

@@ -70,6 +70,7 @@ int ompi_request_init(void)
     ompi_request_null.req_status.MPI_TAG = MPI_ANY_TAG;
     ompi_request_null.req_status.MPI_ERROR = MPI_SUCCESS;
     ompi_request_null.req_status._count = 0;
+    ompi_request_null.req_status._cancelled = 0;
 
     ompi_request_null.req_state = OMPI_REQUEST_INACTIVE;
     ompi_request_null.req_complete = true;
@@ -88,6 +89,7 @@ int ompi_request_init(void)
     ompi_status_empty.MPI_TAG = MPI_ANY_TAG;
     ompi_status_empty.MPI_ERROR = MPI_SUCCESS;
     ompi_status_empty._count = 0;
+    ompi_status_empty._cancelled = 0;
 
     return OMPI_SUCCESS;
 }