Work on stub errors return

ludwig-cf · Nov 15, 2024 · 4da9164 · 4da9164
1 parent 9a3bf83
commit 4da9164
Show file tree

Hide file tree

Showing 3 changed files with 1,099 additions and 293 deletions.
diff --git a/mpi_s/mpi.h b/mpi_s/mpi.h
@@ -39,6 +39,7 @@ typedef MPI_Handle MPI_Info;
 typedef struct {
   int MPI_SOURCE;
   int MPI_TAG;
+  int MPI_ERROR;
 } MPI_Status;
 
 #define MPI_STATUS_IGNORE   ((MPI_Status *) 0)
@@ -57,8 +58,18 @@ typedef intmax_t MPI_Offset;
 
 enum return_codes {
   MPI_SUCCESS = 0,               /* Success */
+  MPI_ERR_ARG,                   /* Invalid argument of other kind */
+  MPI_ERR_BUFFER,                /* Invalid buffer pointer argument */
+  MPI_ERR_COMM,                  /* Invalid communicator argument */
+  MPI_ERR_COUNT,                 /* Invalid count argument */
+  MPI_ERR_DATATYPE,              /* Invalid datatype */
+  MPI_ERR_INFO,                  /* Invalid info argument */
   MPI_ERR_FILE,                  /* Bad file handle */
   MPI_ERR_NO_SUCH_FILE,          /* File does not exist */
+  MPI_ERR_OP,                    /* Invalid operation argument */
+  MPI_ERR_RANK,                  /* Invalid rank argument */
+  MPI_ERR_ROOT,                  /* Invalid root argument */
+  MPI_ERR_TAG,                   /* Invalid tag */
   MPI_ERR_LASTCODE               /* Must be last */
 };
 
@@ -70,8 +81,11 @@ enum return_codes {
 #define MPI_BOTTOM         0x0000
 #define MPI_UNDEFINED     -999
 
+
 /* Error-handling specifiers */
 
+#define MPI_MAX_ERROR_STRING 256
+
 enum error_specifiers {MPI_ERRORS_ARE_FATAL, MPI_ERRORS_RETURN};
 
 enum elementary_datatypes {MPI_CHAR           = -11,