1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
! assert_macros.h: provides preprocessor-based assertion macros
! that are guaranteed to compile away statically when disabled.
! Enable repeated includes to toggle assertions based on current settings:
#undef call_assert
#undef call_assert_describe
#ifndef ASSERTIONS
! Assertions are off by default
#define ASSERTIONS 0
#endif
! Deal with stringification issues:
! https://gcc.gnu.org/legacy-ml/fortran/2009-06/msg00131.html
#ifndef CPP_STRINGIFY_SOURCE
# if defined(__GFORTRAN__) || defined(_CRAYFTN) || defined(NAGFOR) || defined(__LFORTRAN__)
# define CPP_STRINGIFY_SOURCE(x) "x"
# else
# define CPP_STRINGIFY_SOURCE(x) #x
# endif
#endif
#if ASSERTIONS
# define call_assert(assertion) call assert_always(assertion, "call_assert(" // CPP_STRINGIFY_SOURCE(assertion) // ")", __FILE__, __LINE__)
# define call_assert_describe(assertion, description) call assert_always(assertion, description, __FILE__, __LINE__)
#else
# define call_assert(assertion)
# define call_assert_describe(assertion, description)
#endif
|
