X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/98755faee042e94d1ff52f6e9508b18015bb1ae5..9247f3df98d5692a4ec2af89619e650524f058bc:/teshsuite/smpi/mpich3-test/errhan/adderr.c

diff --git a/teshsuite/smpi/mpich3-test/errhan/adderr.c b/teshsuite/smpi/mpich3-test/errhan/adderr.c
new file mode 100644
index 0000000000..8c3dcfca09
--- /dev/null
+++ b/teshsuite/smpi/mpich3-test/errhan/adderr.c
@@ -0,0 +1,63 @@
+/* -*- Mode: C; c-basic-offset:4 ; indent-tabs-mode:nil ; -*- */
+/*
+ *
+ *  (C) 2003 by Argonne National Laboratory.
+ *      See COPYRIGHT in top-level directory.
+ */
+#include "mpi.h"
+#include <stdio.h>
+#include <stdlib.h>
+#include "mpitest.h"
+#include "mpitestconf.h"
+#ifdef HAVE_STRING_H
+#include <string.h>
+#endif
+
+/* Create NCLASSES new classes, each with 5 codes (160 total) */
+#define NCLASSES 32
+#define NCODES   5
+
+int main(int argc, char *argv[])
+{
+    int errs = 0;
+    char string[MPI_MAX_ERROR_STRING], outstring[MPI_MAX_ERROR_STRING];
+    int newclass[NCLASSES], newcode[NCLASSES][NCODES];
+    int i, j, slen, outclass;
+
+    MTest_Init(&argc, &argv);
+
+    /* Initialize the new codes */
+    for (i = 0; i < NCLASSES; i++) {
+        MPI_Add_error_class(&newclass[i]);
+        for (j = 0; j < NCODES; j++) {
+            MPI_Add_error_code(newclass[i], &newcode[i][j]);
+            sprintf(string, "code for class %d code %d\n", i, j);
+            MPI_Add_error_string(newcode[i][j], string);
+        }
+    }
+
+    /* check the values */
+    for (i = 0; i < NCLASSES; i++) {
+        MPI_Error_class(newclass[i], &outclass);
+        if (outclass != newclass[i]) {
+            errs++;
+            printf("Error class %d is not a valid error code %d %d\n", i, outclass, newclass[i]);
+        }
+        for (j = 0; j < NCODES; j++) {
+            MPI_Error_class(newcode[i][j], &outclass);
+            if (outclass != newclass[i]) {
+                errs++;
+                printf("Class of code for %d is not correct %d %d\n", j, outclass, newclass[i]);
+            }
+            MPI_Error_string(newcode[i][j], outstring, &slen);
+            sprintf(string, "code for class %d code %d\n", i, j);
+            if (strcmp(outstring, string)) {
+                errs++;
+                printf("Error string is :%s: but should be :%s:\n", outstring, string);
+            }
+        }
+    }
+
+    MTest_Finalize(errs);
+    return MTestReturnValue(errs);
+}