mirror of
https://github.com/HDFGroup/hdf5.git
synced 2024-12-09 07:32:32 +08:00
f19e06b59e
previous warnings PR. An array element was assigned to
itself---shape[2]Â =Â shape[2];---instead of being assigned to
chunk[2].
fortran/src/H5Pf.c: move conditional compilation controlled by
H5_NO_DEPRECATED_SYMBOLS outside of a function for readability.
fortran/src/H5match_types.c: put a variable's declaration under the same
conditional compilation (H5_FORTRAN_HAVE_C_LONG_DOUBLE) as its
use.
For now, skip compilation of some unused debug dump routines in the JNI.
While I'm in the JNI, delete a set-but-unused variable.
src/H5Z.c: condition a variable declaration on H5_NO_DEPRECATED_SYMBOLS
so that it's not declared but unused or vice versa.
test/cache_common.h: add an #include in to get some symbols we need to
avoid implicit declaration warnings.
test/dsets.c: use a more conventional conditional-compilation syntax.
test/dt_arith.c, test/fillval.c: initialize a bunch of uninitialized
variables before use.
test/vfd.c: pass the expected type of `void **` to posix_memalign(3)
instead of `int **`.
testpar/t_bigio.c: explicitly compare with 0 instead of using ! when
"equal to 0?" is the question not "is false?" Repair some
indentation while I'm here.
testpar/testpar.h: repair misaligned line-continuation backslashes in a
macro that probably should be a function so that we don't have
to fiddle with the line continuation to begin with.
tools/src/h5repack/h5repack_main.c: fix some compiler fussing about
enums.
tools/test/perform/pio_engine.c: the compiler fusses if you cast a
function call returning double directly to off_t. It's ok if
you cast a variable that's a double to off_t, however. Write
and use a new function, sqrto(), to avoid the cast warnings.
105 lines
5.1 KiB
C
105 lines
5.1 KiB
C
/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
|
|
* Copyright by The HDF Group. *
|
|
* Copyright by the Board of Trustees of the University of Illinois. *
|
|
* All rights reserved. *
|
|
* *
|
|
* This file is part of HDF5. The full HDF5 copyright notice, including *
|
|
* terms governing use, modification, and redistribution, is contained in *
|
|
* the COPYING file, which can be found at the root of the source code *
|
|
* distribution tree, or in https://support.hdfgroup.org/ftp/HDF5/releases. *
|
|
* If you do not have access to either file, you may request a copy from *
|
|
* help@hdfgroup.org. *
|
|
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
|
|
|
|
/* common definitions used by all parallel test programs. */
|
|
|
|
#ifndef TESTPAR_H
|
|
#define TESTPAR_H
|
|
|
|
/* Indicate that these are parallel tests, for the testing framework */
|
|
#define H5_PARALLEL_TEST
|
|
|
|
#include "h5test.h"
|
|
|
|
/* Constants definitions */
|
|
#define MAX_ERR_REPORT 10 /* Maximum number of errors reported */
|
|
|
|
/* Define some handy debugging shorthands, routines, ... */
|
|
/* debugging tools */
|
|
|
|
/* Print message mesg if verbose level is at least medium and
|
|
* mesg is not an empty string.
|
|
*/
|
|
#define MESG(mesg) \
|
|
if (VERBOSE_MED && *mesg != '\0') \
|
|
HDprintf("%s\n", mesg)
|
|
|
|
/*
|
|
* VRFY: Verify if the condition val is true.
|
|
* If it is true, then call MESG to print mesg, depending on the verbose
|
|
* level.
|
|
* If val is not true, it prints error messages and if the verbose
|
|
* level is lower than medium, it calls MPI_Abort to abort the program.
|
|
* If verbose level is at least medium, it will not abort.
|
|
* 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_IMPL(val, mesg, rankvar) do { \
|
|
if (val) { \
|
|
MESG(mesg); \
|
|
} \
|
|
else { \
|
|
HDprintf("Proc %d: ", rankvar); \
|
|
HDprintf("*** Parallel ERROR ***\n"); \
|
|
HDprintf(" VRFY (%s) failed at line %4d in %s\n", \
|
|
mesg, (int)__LINE__, __FILE__); \
|
|
++nerrors; \
|
|
fflush(stdout); \
|
|
if (!VERBOSE_MED) { \
|
|
HDprintf("aborting MPI processes\n"); \
|
|
MPI_Abort(MPI_COMM_WORLD, 1); \
|
|
} \
|
|
} \
|
|
} 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.
|
|
* Either case, no error setting.
|
|
*/
|
|
#define INFO(val, mesg) do { \
|
|
if (val) { \
|
|
MESG(mesg); \
|
|
} else { \
|
|
HDprintf("Proc %d: ", mpi_rank); \
|
|
HDprintf("*** PHDF5 REMARK (not an error) ***\n"); \
|
|
HDprintf(" Condition (%s) failed at line %4d in %s\n", \
|
|
mesg, (int)__LINE__, __FILE__); \
|
|
fflush(stdout); \
|
|
} \
|
|
} while(0)
|
|
|
|
#define MPI_BANNER(mesg) do { \
|
|
if (VERBOSE_MED || MAINPROCESS){ \
|
|
HDprintf("--------------------------------\n"); \
|
|
HDprintf("Proc %d: ", mpi_rank); \
|
|
HDprintf("*** %s\n", mesg); \
|
|
HDprintf("--------------------------------\n"); \
|
|
} \
|
|
} while(0)
|
|
|
|
#define MAINPROCESS (!mpi_rank) /* define process 0 as main process */
|
|
|
|
#define SYNC(comm) do { \
|
|
MPI_BANNER("doing a SYNC"); \
|
|
MPI_Barrier(comm); \
|
|
MPI_BANNER("SYNC DONE"); \
|
|
} while(0)
|
|
|
|
/* End of Define some handy debugging shorthands, routines, ... */
|
|
|
|
#endif /* TESTPAR_H */
|