teshsuite/smpi/mpich3-test/datatype/sizedtypes.c

   1 /* -*- Mode: C; c-basic-offset:4 ; indent-tabs-mode:nil ; -*- */
   2 /*
   3  *
   4  *  (C) 2003 by Argonne National Laboratory.
   5  *      See COPYRIGHT in top-level directory.
   6  */
   7 #include "mpi.h"
   8 #include <stdio.h>
   9 #include <stdlib.h>
  10 #include "mpitest.h"
  11
  12 /*
  13 static char MTEST_Descrip[] = "Test of the sized types, supported in MPI-2";
  14 */
  15
  16 int main(int argc, char *argv[])
  17 {
  18     int errs = 0;
  19     int size;
  20
  21     MTest_Init(&argc, &argv);
  22
  23     MPI_Type_size(MPI_REAL4, &size);
  24     if (size != 4) {
  25         errs++;
  26         printf("MPI_REAL4 has size %d\n", size);
  27     }
  28     MPI_Type_size(MPI_REAL8, &size);
  29     if (size != 8) {
  30         errs++;
  31         printf("MPI_REAL8 has size %d\n", size);
  32     }
  33     if (MPI_REAL16 != MPI_DATATYPE_NULL) {
  34         MPI_Type_size(MPI_REAL16, &size);
  35         if (size != 16) {
  36             errs++;
  37             printf("MPI_REAL16 has size %d\n", size);
  38         }
  39     }
  40
  41     MPI_Type_size(MPI_COMPLEX8, &size);
  42     if (size != 8) {
  43         errs++;
  44         printf("MPI_COMPLEX8 has size %d\n", size);
  45     }
  46     MPI_Type_size(MPI_COMPLEX16, &size);
  47     if (size != 16) {
  48         errs++;
  49         printf("MPI_COMPLEX16 has size %d\n", size);
  50     }
  51     if (MPI_COMPLEX32 != MPI_DATATYPE_NULL) {
  52         MPI_Type_size(MPI_COMPLEX32, &size);
  53         if (size != 32) {
  54             errs++;
  55             printf("MPI_COMPLEX32 has size %d\n", size);
  56         }
  57     }
  58
  59     MPI_Type_size(MPI_INTEGER1, &size);
  60     if (size != 1) {
  61         errs++;
  62         printf("MPI_INTEGER1 has size %d\n", size);
  63     }
  64     MPI_Type_size(MPI_INTEGER2, &size);
  65     if (size != 2) {
  66         errs++;
  67         printf("MPI_INTEGER2 has size %d\n", size);
  68     }
  69     MPI_Type_size(MPI_INTEGER4, &size);
  70     if (size != 4) {
  71         errs++;
  72         printf("MPI_INTEGER4 has size %d\n", size);
  73     }
  74     if (MPI_INTEGER8 != MPI_DATATYPE_NULL) {
  75         MPI_Type_size(MPI_INTEGER8, &size);
  76         if (size != 8) {
  77             errs++;
  78             printf("MPI_INTEGER8 has size %d\n", size);
  79         }
  80     }
  81 #ifdef HAVE_MPI_INTEGER16
  82     if (MPI_INTEGER16 != MPI_DATATYPE_NULL) {
  83         MPI_Type_size(MPI_INTEGER16, &size);
  84         if (size != 16) {
  85             errs++;
  86             printf("MPI_INTEGER16 has size %d\n", size);
  87         }
  88     }
  89 #endif
  90
  91     MTest_Finalize(errs);
  92     MPI_Finalize();
  93     return 0;
  94 }