+/* -*- 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);
+}