Logo AND Algorithmique Numérique Distribuée

Public GIT Repository
still not our
[simgrid.git] / teshsuite / smpi / mpich3-test / datatype / large-count.c
index 31f6a2d..fd316d6 100644 (file)
         }                                                                         \
     } while (0)
 
-/* Abort when using unimplemented functions.  Currently, it should not happen,
- * since sizeof(MPI_Count) == sizeof(int), but it avoids compile errors about
- * undefined functions. */
-#define err_unimpl(func) do {                                 \
-    fprintf(stderr, "ERROR: %s is not implemented\n", #func); \
-    abort();                                                  \
-  } while (0)
-
-#define MPI_Type_size_x(a,b)              err_unimpl(MPI_Type_size_x)
-#define MPI_Type_get_extent_x(a,b,c)      err_unimpl(MPI_Type_get_extent_x)
-#define MPI_Type_get_true_extent_x(a,b,c) err_unimpl(MPI_Type_get_true_extent_x)
-#define MPI_Get_elements_x(a,b,c)         err_unimpl(MPI_Get_elements_x)
-#define MPI_Status_set_elements_x(a,b,c)  err_unimpl(MPI_Status_set_elements_x)
-
 int main(int argc, char *argv[])
 {
     int errs = 0;
@@ -45,7 +31,7 @@ int main(int argc, char *argv[])
     int size, elements, count;
     MPI_Aint lb, extent;
     MPI_Count size_x, lb_x, extent_x, elements_x;
-    double imx4i_true_extent;
+    MPI_Count imx4i_true_extent;
     MPI_Datatype imax_contig = MPI_DATATYPE_NULL;
     MPI_Datatype four_ints = MPI_DATATYPE_NULL;
     MPI_Datatype imx4i = MPI_DATATYPE_NULL;