blob: 49a1bcd860492b868e18fbb3f95cb9a3a847c00a (
plain)
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
30
31
|
/* Copyright (C) 2000 Free Software Foundation, Inc. */
/* { dg-do run } */
/* { dg-options "-std=c99" } */
/* Fully test the 6 digraphs under c99 assumptions. Four are pasted,
to check that digraph pasting works. */
extern int strcmp (const char *, const char *);
extern void abort (void);
extern int puts (const char *);
#define err(str) do { puts(str); abort(); } while (0)
%:define glue(x, y) x %:%: y /* #define glue(x, y) x ## y. */
#ifndef glue
#error glue not defined!
#endif
%:define str(x) %:x /* #define str(x) #x */
int main (int argc, char *argv<::>) /* argv[] */
glue (<, %) /* { */
/* di_str[] = */
const char di_str glue(<, :)glue(:, >) = str(%:%:<::><%%>%:);
/* Check the glue macro actually pastes, and that the spelling of
all digraphs is preserved. */
if (glue(str, cmp) (di_str, "%:%:<::><%%>%:"))
err ("Digraph spelling not preserved!");
return 0;
glue (%, >) /* } */
|
