Make MPI_F08_status in C match the layout of type(MPI_Status) in Fortran

dalcinl · jeffhammond · commit 58b875c01dbc · 2024-02-25T20:47:17.000+02:00
diff --git a/mpi.h b/mpi.h
@@ -188,7 +188,10 @@ enum {
 };
 
 typedef struct {
-  MPI_Fint mpi_val[MPI_F_STATUS_SIZE];
+  MPI_Fint MPI_SOURCE;
+  MPI_Fint MPI_TAG;
+  MPI_Fint MPI_ERROR;
+  MPI_Fint MPI_internal[5];
 } MPI_F08_status;
 
 // Error classes
