|
111
|
1 /* Copyright (C) 2000 Free Software Foundation, Inc. */
|
|
|
2
|
|
|
3 /* { dg-do run } */
|
|
|
4 /* { dg-options "-std=c99" } */
|
|
|
5
|
|
|
6 /* Fully test the 6 digraphs under c99 assumptions. Four are pasted,
|
|
|
7 to check that digraph pasting works. */
|
|
|
8
|
|
|
9 extern int strcmp (const char *, const char *);
|
|
|
10 extern void abort (void);
|
|
|
11 #if DEBUG
|
|
|
12 extern int puts (const char *);
|
|
|
13 #else
|
|
|
14 #define puts(X)
|
|
|
15 #endif
|
|
|
16 #define err(str) do { puts(str); abort(); } while (0)
|
|
|
17
|
|
|
18 %:define glue(x, y) x %:%: y /* #define glue(x, y) x ## y. */
|
|
|
19 #ifndef glue
|
|
|
20 #error glue not defined!
|
|
|
21 #endif
|
|
|
22 %:define str(x) %:x /* #define str(x) #x */
|
|
|
23
|
|
|
24 int main (int argc, char *argv<::>) /* argv[] */
|
|
|
25 glue (<, %) /* { */
|
|
|
26 /* di_str[] = */
|
|
|
27 const char di_str glue(<, :)glue(:, >) = str(%:%:<::><%%>%:);
|
|
|
28
|
|
|
29 /* Check the glue macro actually pastes, and that the spelling of
|
|
|
30 all digraphs is preserved. */
|
|
|
31 if (glue(str, cmp) (di_str, "%:%:<::><%%>%:"))
|
|
|
32 err ("Digraph spelling not preserved!");
|
|
|
33
|
|
|
34 return 0;
|
|
|
35 glue (%, >) /* } */
|
