extern int puts (const char *);
extern void abort (void);
extern int strcmp(const char *s1, const char *s2);
#define err(str) do { puts(str); abort(); } while (0)
#define j(x, y) x + y
#define k(x, y) j(x + 2, y +
#define glue(x, y) x ## y
#define xglue(x, y) glue(x, y)
int q(int x) {return x + 40;}
int B(int x) {return x + 20;}
int foo(int x) {return x + 10;}
int bar(int x, int y) {return x + y;}
int baz(int x, int y) {return x + y;}
int toupper(int x) {return x + 32;}
int M(int x) {return x * 2;}
int main (int argc, char *argv[])
{
#define q(x) x
if (q(q)(2) != 42)
err ("q");
#define A(x) B(x)
if (A(A(2)) != 42)
err ("A");
#define E(x) A x
#define F (22)
if (E(F) != 42)
err ("E(F)");
#define COMMA ,
#define NASTY(a) j(a 37)
if (NASTY (5 COMMA) != 42)
err ("NASTY");
#define bar(x, y) foo(x(y, 0))
#define apply(x, y) foo(x(y, 22))
#define bam bar
if (bar(bar, 32) != 42)
err ("bar bar");
if (bar(bam, 32) != 42)
err ("bar bam");
if (apply(bar, baz) != 42)
err ("apply bar baz");
#define __tobody(c, f) f (c)
#define toupper(c) __tobody (c, toupper)
if (toupper (10) != 42)
err ("toupper");
#define M(x) 2 + M(x)
#define stpcpy(a) M(a)
if (stpcpy (stpcpy (9)) != 42)
err ("stpcpy");
#define B(x) 1 + B(x)
#define C(x) A(x)
if (C(B(0)) != 42)
err ("C");
{
int insn = 6, i = 2, b = 2;
#define XEXP(RTX, N) (RTX * N + 2)
#define PATTERN(INSN) XEXP(INSN, 3)
if (XEXP (PATTERN (insn), i) != 42)
err ("XEXP (PATTERN)");
if (XEXP (XEXP (insn, 3), i) != 42)
err ("XEXP (XEXP)");
#define COST(X) XEXP (XEXP (X, 4), 4)
if (COST (b) != 42)
err ("COST");
}
#define FORTYTWO "forty"
#define TWO TWO "-two"
if (strcmp (glue(FORTY, TWO), "forty"))
err ("glue");
if (strcmp (xglue(FORTY, TWO), "forty-two"))
err ("xglue");
if (q
(42) != 42
|| q (
42) != 42
|| q (42
) != 42
|| q
(
42
)
!= 42)
err ("q over multiple lines");
if (q(1 + q)(1) != 42)
err ("Nested q");
if (k(1, 4) 35) != 42)
err ("k");
return 0;
}