added mpi_request_null checks for test_/wait_xxx

HawkmoonEternal · HawkmoonEternal · commit 1994c3bd3798 · 2024-05-06T14:56:17.000+02:00
Signed-off-by: HawkmoonEternal &lt;domi.huber@tum.de&gt;
diff --git a/ompi/mpi/c/testall.c b/ompi/mpi/c/testall.c
@@ -70,6 +70,8 @@ int MPI_Testall(int count, MPI_Request requests[], int *flag,
                 }
                 if (&ompi_request_empty == requests[i]) { 
                     continue;
+                } else if (&ompi_request_null == requests[i]) {
+                    continue;
                 } else if (NULL == requests[i]->req_mpi_object.comm) {
                     continue;
                 } else if (NULL == check_req) {
diff --git a/ompi/mpi/c/testany.c b/ompi/mpi/c/testany.c
@@ -69,6 +69,8 @@ int MPI_Testany(int count, MPI_Request requests[], int *indx, int *completed, MP
                 }
                 if (&ompi_request_empty == requests[i]) {
                     continue;
+                } else if (&ompi_request_null == requests[i]) {
+                    continue;
                 } else if (NULL == requests[i]->req_mpi_object.comm) {
                     continue;
                 } else if (NULL == check_req) {
diff --git a/ompi/mpi/c/testsome.c b/ompi/mpi/c/testsome.c
@@ -58,26 +58,28 @@ int MPI_Testsome(int incount, MPI_Request requests[],
     );
 
     if ( MPI_PARAM_CHECK ) {
-        int indx, rc = MPI_SUCCESS;
+        int i, rc = MPI_SUCCESS;
         MPI_Request check_req = NULL;
         OMPI_ERR_INIT_FINALIZE(FUNC_NAME);
         if ((NULL == requests) && (0 != incount)) {
             rc = MPI_ERR_REQUEST;
         } else {
-            for (indx = 0; indx < incount; ++indx) {
-                if (NULL == requests[indx]) {
+            for (i = 0; i < incount; ++i) {
+                if (NULL == requests[i]) {
                     rc = MPI_ERR_REQUEST;
                     break;
                 }
-                if (&ompi_request_empty == requests[indx]) { 
+                if (&ompi_request_empty == requests[i]) { 
                     continue;
-                } else if (NULL == requests[indx]->req_mpi_object.comm) {
+                } else if (&ompi_request_null == requests[i]) {
+                    continue;
+                } else if (NULL == requests[i]->req_mpi_object.comm) {
                     continue;
                 } else if (NULL == check_req) {
-                    check_req = requests[indx];
+                    check_req = requests[i];
                 }
                 else {
-                    if (!ompi_comm_instances_same(requests[indx]->req_mpi_object.comm,
+                    if (!ompi_comm_instances_same(requests[i]->req_mpi_object.comm,
                                                      check_req->req_mpi_object.comm)) {
                         rc = MPI_ERR_REQUEST;
                         break;
diff --git a/ompi/mpi/c/waitall.c b/ompi/mpi/c/waitall.c
@@ -68,6 +68,8 @@ int MPI_Waitall(int count, MPI_Request requests[], MPI_Status statuses[])
                 }
                 if (&ompi_request_empty == requests[i]) {
                     continue;
+                } else if (&ompi_request_null == requests[i]) {
+                    continue;
                 } else if (NULL == requests[i]->req_mpi_object.comm) {
                     continue;
                 } else if (NULL == check_req) {
diff --git a/ompi/mpi/c/waitany.c b/ompi/mpi/c/waitany.c
@@ -67,7 +67,9 @@ int MPI_Waitany(int count, MPI_Request requests[], int *indx, MPI_Status *status
                     rc = MPI_ERR_REQUEST;
                     break;
                 }
-                if (requests[i] == &ompi_request_empty) {
+                if (&ompi_request_empty == requests[i]) {
+                    continue;
+                } else if (&ompi_request_null == requests[i]) {
                     continue;
                 } else if (NULL == requests[i]->req_mpi_object.comm) {
                     continue;
diff --git a/ompi/mpi/c/waitsome.c b/ompi/mpi/c/waitsome.c
@@ -58,26 +58,28 @@ int MPI_Waitsome(int incount, MPI_Request requests[],
     );
 
     if ( MPI_PARAM_CHECK ) {
-        int indx, rc = MPI_SUCCESS;
+        int i, rc = MPI_SUCCESS;
         MPI_Request check_req = NULL;
         OMPI_ERR_INIT_FINALIZE(FUNC_NAME);
         if ((NULL == requests) && (0 != incount)) {
             rc = MPI_ERR_REQUEST;
         } else {
-            for (indx = 0; indx < incount; ++indx) {
-                if (NULL == requests[indx]) {
+            for (i = 0; i < incount; ++i) {
+                if (NULL == requests[i]) {
                     rc = MPI_ERR_REQUEST;
                     break;
                 }
-                if (&ompi_request_empty == requests[indx]) {
+                if (&ompi_request_empty == requests[i]) {
                     continue;
-                } else if (NULL == requests[indx]->req_mpi_object.comm) {
+                } else if (&ompi_request_null == requests[i]) {
+                    continue;
+                } else if (NULL == requests[i]->req_mpi_object.comm) {
                     continue;
                 } else if (NULL == check_req) {
-                    check_req = requests[indx];
+                    check_req = requests[i];
                 }
                 else {
-                    if (!ompi_comm_instances_same(requests[indx]->req_mpi_object.comm,
+                    if (!ompi_comm_instances_same(requests[i]->req_mpi_object.comm,
                                                      check_req->req_mpi_object.comm)) {
                         rc = MPI_ERR_REQUEST;
                         break;

Original file line number	Diff line number	Diff line change
`@@ -70,6 +70,8 @@ int MPI_Testall(int count, MPI_Request requests[], int *flag,`
`70`	`70`	`}`
`71`	`71`	`if (&ompi_request_empty == requests[i]) {`
`72`	`72`	`continue;`
	`73`	`+ } else if (&ompi_request_null == requests[i]) {`
	`74`	`+ continue;`
`73`	`75`	`} else if (NULL == requests[i]->req_mpi_object.comm) {`
`74`	`76`	`continue;`
`75`	`77`	`} else if (NULL == check_req) {`
Original file line number	Diff line number	Diff line change
`@@ -69,6 +69,8 @@ int MPI_Testany(int count, MPI_Request requests[], int indx, int completed, MP`
`69`	`69`	`}`
`70`	`70`	`if (&ompi_request_empty == requests[i]) {`
`71`	`71`	`continue;`
	`72`	`+ } else if (&ompi_request_null == requests[i]) {`
	`73`	`+ continue;`
`72`	`74`	`} else if (NULL == requests[i]->req_mpi_object.comm) {`
`73`	`75`	`continue;`
`74`	`76`	`} else if (NULL == check_req) {`
Original file line number	Diff line number	Diff line change
`@@ -68,6 +68,8 @@ int MPI_Waitall(int count, MPI_Request requests[], MPI_Status statuses[])`
`68`	`68`	`}`
`69`	`69`	`if (&ompi_request_empty == requests[i]) {`
`70`	`70`	`continue;`
	`71`	`+ } else if (&ompi_request_null == requests[i]) {`
	`72`	`+ continue;`
`71`	`73`	`} else if (NULL == requests[i]->req_mpi_object.comm) {`
`72`	`74`	`continue;`
`73`	`75`	`} else if (NULL == check_req) {`