diff options
author | kmu <kmu@hdfgroup.org> | 2020-01-27 18:57:33 (GMT) |
---|---|---|
committer | David Young <dyoung@hdfgroup.org> | 2020-05-20 14:31:53 (GMT) |
commit | c3549ae3f9061ff0589aa0dc1d690777b4649134 (patch) | |
tree | da6a7dcb1115c4eeff5038649d25e8a469785a49 /testpar/testpar.h | |
parent | d63080b19ae0d5e12650c84b36c5f05c8cf22399 (diff) | |
download | hdf5-c3549ae3f9061ff0589aa0dc1d690777b4649134.zip hdf5-c3549ae3f9061ff0589aa0dc1d690777b4649134.tar.gz hdf5-c3549ae3f9061ff0589aa0dc1d690777b4649134.tar.bz2 |
pick up from Dave's fix
Diffstat (limited to 'testpar/testpar.h')
-rw-r--r-- | testpar/testpar.h | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/testpar/testpar.h b/testpar/testpar.h index 86677d1..e3d68e0 100644 --- a/testpar/testpar.h +++ b/testpar/testpar.h @@ -44,12 +44,12 @@ * This will allow program to continue and can be used for debugging. * (The "do {...} while(0)" is to group all the statements as one unit.) */ -#define VRFY(val, mesg) do { \ +#define VRFY_IMPL(val, mesg, rankvar) do { \ if (val) { \ MESG(mesg); \ } \ else { \ - HDprintf("Proc %d: ", mpi_rank); \ + HDprintf("Proc %d: ", rankvar); \ HDprintf("*** Parallel ERROR ***\n"); \ HDprintf(" VRFY (%s) failed at line %4d in %s\n", \ mesg, (int)__LINE__, __FILE__); \ @@ -62,6 +62,9 @@ } \ } while(0) +#define VRFY_G(val, mesg) VRFY_IMPL(val, mesg, mpi_rank_g) +#define VRFY(val, mesg) VRFY_IMPL(val, mesg, mpi_rank) + /* * Checking for information purpose. * If val is false, print mesg; else nothing. |