From fa9dad19e1e5dfa5c9b6dc3646b1b70a343d9212 Mon Sep 17 00:00:00 2001
From: Lisandro Dalcin <dalcinl@gmail.com>
Date: Wed, 20 Mar 2024 10:20:09 +0300
Subject: [PATCH] Update MPI_Status definition to give implementers flexibility

---
 mpi.h | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/mpi.h b/mpi.h
index f97d06e..4e76466 100644
--- a/mpi.h
+++ b/mpi.h
@@ -49,7 +49,10 @@ typedef struct {
     int MPI_SOURCE;
     int MPI_TAG;
     int MPI_ERROR;
-    int MPI_internal[5];
+    union {
+      char MPI_internal_as_int[5];
+      /* implementation-defined representation */
+    } MPI_internal;
 } MPI_Status;
 
 typedef struct MPI_ABI_Op* MPI_Op;
@@ -192,7 +195,10 @@ typedef struct {
   MPI_Fint MPI_SOURCE;
   MPI_Fint MPI_TAG;
   MPI_Fint MPI_ERROR;
-  MPI_Fint MPI_internal[5];
+  union {
+    MPI_Fint MPI_internal_as_MPI_Fint[5];
+    /* implementation-defined representation */
+  } MPI_internal;
 } MPI_F08_status;
 
 /* Error Classes */