Subversion Repositories openrisc

/* Basic tests of the #assert preprocessor extension. */

/* { dg-do compile } */

/* { dg-options "" } */

#define def unused expansion

#define fail  int fail

#assert abc (def)

#assert abc (ghi)

#assert abc (jkl)

#assert space ( s p a c e )

/* Basic: */

#if !#abc (def) || !#abc (ghi) || !#abc (jkl)

fail

#endif

/* any answer for #abc */

#if !#abc

fail

#endif

/* internal whitespace is collapsed,

   external whitespace is deleted  */

#if !#space (s p  a  c e) || !#space (  s p a c e  ) || #space (space)

fail

#endif

/* removing assertions */

#unassert abc (jkl)

#if !#abc || !#abc (def) || !#abc (ghi) || #abc (jkl)

fail

#endif

#unassert abc

#if #abc || #abc (def) || #abc (ghi) || #abc (jkl)

fail

#endif

int gobble

/* make sure it can succeed too.

   also check space before open paren isn't significant */

#if #space(s p a c e)

;

#endif