A
lgorithmique
N
umérique
D
istribuée
Public GIT Repository
projects
/
simgrid.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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 */
*/
/* 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
/*
Arrays types, inbufs, outbufs, and counts are allocated by the
@@
-194,7
+194,7
@@
static int basic_only = 0;
*/
void MTestDatatype2BasicOnly(void)
{
*/
void MTestDatatype2BasicOnly(void)
{
-
basic_only
= 1;
+
SMPI_VARGET_GLOBAL(basic_only)
= 1;
}
SMPI_VARINIT_GLOBAL_AND_SET(nbasic_types, int, 0); /* World rank */
}
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;
#endif
SMPI_VARGET_GLOBAL(nbasic_types) = cnt;
- if (
basic_only
) {
+ if (
SMPI_VARGET_GLOBAL(basic_only)
) {
*n = cnt;
return;
}
*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;
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 %hh
x\n", p2[errloc - 1], p1[errloc - 1]);
}
return errloc;
}
}
return errloc;
}