*/
/* 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
*/
void MTestDatatype2BasicOnly(void)
{
- basic_only = 1;
+ SMPI_VARGET_GLOBAL(basic_only) = 1;
}
SMPI_VARINIT_GLOBAL_AND_SET(nbasic_types, int, 0); /* World rank */
#endif
SMPI_VARGET_GLOBAL(nbasic_types) = cnt;
- if (basic_only) {
+ if (SMPI_VARGET_GLOBAL(basic_only)) {
*n = cnt;
return;
}