add some coverage in fortran bindings

[simgrid.git] / teshsuite / smpi / mpich3-test / util / dtypes_manual.c

diff --git a/teshsuite/smpi/mpich3-test/util/dtypes_manual.c b/teshsuite/smpi/mpich3-test/util/dtypes_manual.c
index bfff4be..48bc309 100644 (file)
--- a/teshsuite/smpi/mpich3-test/util/dtypes_manual.c
+++ b/teshsuite/smpi/mpich3-test/util/dtypes_manual.c
@@ -43,7 +43,7 @@
  */
 
 /* Change this to test only the basic, predefined types */
-static int basic_only = 0;
+SMPI_VARINIT_GLOBAL_AND_SET(basic_only, int, 0);
 
 /*
    Arrays types, inbufs, outbufs, and counts are allocated by the
@@ -194,7 +194,7 @@ static int basic_only = 0;
  */
 void MTestDatatype2BasicOnly(void)
 {
-    basic_only = 1;
+    SMPI_VARGET_GLOBAL(basic_only) = 1;
 }
 
 SMPI_VARINIT_GLOBAL_AND_SET(nbasic_types, int, 0);  /* World rank */
@@ -228,7 +228,7 @@ void MTestDatatype2Generate(MPI_Datatype * types, void **inbufs, void **outbufs,
 #endif
     SMPI_VARGET_GLOBAL(nbasic_types) = cnt;
 
-    if (basic_only) {
+    if (SMPI_VARGET_GLOBAL(basic_only)) {
         *n = cnt;
         return;
     }
@@ -361,7 +361,7 @@ static int MtestDatatype2CheckAndPrint(void *inbuf, void *outbuf, int size_bytes
                 typename, typenum, world_rank, errloc - 1, size_bytes);
         p1 = (char *) inbuf;
         p2 = (char *) outbuf;
-        fprintf(stderr, "Got %x expected %x\n", p2[errloc - 1], p1[errloc - 1]);
+        fprintf(stderr, "Got %hhx expected %hhx\n", p2[errloc - 1], p1[errloc - 1]);
     }
     return errloc;
 }