|
111
|
1 /* Copyright (C) 2000 Free Software Foundation, Inc. */
|
|
|
2
|
|
|
3 /* { dg-do run } */
|
|
|
4 /* { dg-options "-std=c99 -pedantic-errors" } */
|
|
|
5
|
|
|
6 /* Test ## behavior and corner cases thoroughly. The macro expander
|
|
|
7 failed many of these during development. */
|
|
|
8
|
|
|
9 #ifndef __WCHAR_TYPE__
|
|
|
10 #define __WCHAR_TYPE__ int
|
|
|
11 #endif
|
|
|
12 typedef __WCHAR_TYPE__ wchar_t;
|
|
|
13
|
|
|
14 extern int strcmp (const char *, const char *);
|
|
|
15 #if DEBUG
|
|
|
16 extern int puts (const char *);
|
|
|
17 #else
|
|
|
18 #define puts(X)
|
|
|
19 #endif
|
|
|
20 extern void abort (void);
|
|
|
21 #define err(str) do { puts(str); abort(); } while (0)
|
|
|
22
|
|
|
23 #define EMPTY
|
|
|
24 #define str(x) #x
|
|
|
25 #define xstr(x) str(x)
|
|
|
26 #define glue(x, y) x ## y
|
|
|
27 #define xglue(x, y) glue (x, y)
|
|
|
28 #define glue3(x, y, z) x ## y ## z
|
|
|
29 #define glue_var(x, ...) x ## __VA_ARGS__
|
|
|
30
|
|
|
31 #define __muldi3 __NDW(mul, 3 = 50)
|
|
|
32 #define __NDW(a,b) __ ## a ## di ## b
|
|
|
33 #define m3 NDW()
|
|
|
34 #define NDW(x) m3 ## x = 50
|
|
|
35 #define five 5
|
|
|
36 #define fifty int fif ## ty
|
|
|
37
|
|
|
38 /* Defines a function called glue, returning what it is passed. */
|
|
|
39 int glue (glue,) (int x)
|
|
|
40 {
|
|
|
41 return x;
|
|
|
42 }
|
|
|
43
|
|
|
44 int main ()
|
|
|
45 {
|
|
|
46 /* m3 and __muldi3 would sometimes cause an infinite loop. Ensure
|
|
|
47 we only expand fifty once. */
|
|
|
48 fifty = 50, m3, __muldi3;
|
|
|
49
|
|
|
50 /* General glue and macro expanding test. */
|
|
|
51 int five0 = xglue (glue (fi, ve), 0);
|
|
|
52
|
|
|
53 /* Tests only first and last tokens are pasted, and pasting to form
|
|
|
54 the != operator. Should expand to: if (five0 != 50). */
|
|
|
55 if (glue3 (fi, ve0 !,= glue (EMPTY 5, 0)))
|
|
|
56 err ("five0 != 50");
|
|
|
57
|
|
|
58 /* Test varags pasting, and pasting to form the >> operator. */
|
|
|
59 if (glue_var(50 >, > 1 != 25))
|
|
|
60 err ("Operator >> pasting");
|
|
|
61
|
|
|
62 /* The LHS should not attempt to expand twice, and thus becomes a
|
|
|
63 call to the function glue. */
|
|
|
64 if (glue (gl, ue) (12) != 12)
|
|
|
65 err ("Recursive macros");
|
|
|
66
|
|
|
67 /* Test placemarker pasting. The glued lines should all appear
|
|
|
68 neatly in the same column and below each other, though we don't
|
|
|
69 test that here. */
|
|
|
70 {
|
|
|
71 int glue3(a, b, ) = 1, glue3(a,,) = 1;
|
|
|
72 glue3(a, , b)++;
|
|
|
73 glue3(, a, b)++;
|
|
|
74 glue3(,a,)++;
|
|
|
75 glue3(,,a)++;
|
|
|
76 if (a != 3 || ab != 3 glue3(,,))
|
|
|
77 err ("Placemarker pasting");
|
|
|
78 }
|
|
|
79
|
|
|
80 /* Test that macros in arguments are not expanded. */
|
|
|
81 {
|
|
|
82 int glue (EMPTY,1) = 123, glue (T, EMPTY) = 123;
|
|
|
83 if (EMPTY1 != 123 || TEMPTY != 123)
|
|
|
84 err ("Pasted arguments macro expanding");
|
|
|
85 }
|
|
|
86
|
|
|
87 /* Test various paste combinations. */
|
|
|
88 {
|
|
|
89 const wchar_t* wc_array = glue(L, "wide string");
|
|
|
90 wchar_t wc = glue(L, 'w');
|
|
|
91 const char * hh = xstr(xglue(glue(%, :), glue(%, :)));
|
|
|
92 int array glue (<, :) 1 glue (:, >) = glue(<, %) 1 glue(%, >);
|
|
|
93 int x = 4;
|
|
|
94
|
|
|
95 if (array[0] != 1)
|
|
|
96 err ("Digraph pasting");
|
|
|
97
|
|
|
98 x glue (>>, =) 1; /* 2 */
|
|
|
99 x glue (<<, =) 1; /* 4 */
|
|
|
100 x glue (*, =) 2; /* 8 */
|
|
|
101 x glue (+, =) 100; /* 108 */
|
|
|
102 x glue (-, =) 50; /* 58 */
|
|
|
103 x glue (/, =) 2; /* 29 */
|
|
|
104 x glue (%, =) 20; /* 9 */
|
|
|
105 x glue (&, =) 254; /* 8 */
|
|
|
106 x glue (|, =) 16; /* 24 */
|
|
|
107 x glue (^, =) 18; /* 10 */
|
|
|
108
|
|
|
109 if (x != 10 || 0 glue (>, =) 1 glue (|, |) 1 glue (<, =) 0)
|
|
|
110 err ("Various operator pasting");
|
|
|
111 if (strcmp (hh, "%:%:"))
|
|
|
112 err ("Pasted digraph spelling");
|
|
|
113 if ((glue (., 1) glue (!, =) .1))
|
|
|
114 err ("Pasted numbers 1");
|
|
|
115 /* glue3 here will only work if we paste left-to-right. If a
|
|
|
116 future implementation does not do this, change the test. */
|
|
|
117 if (glue3 (1.0e, +, 1) != 10.0)
|
|
|
118 err ("Pasted numbers 2");
|
|
|
119 }
|
|
|
120
|
|
|
121 return 0;
|
|
|
122 }
|
