1 /* Copyright (C) 2000 Free Software Foundation, Inc.  */
2 
3 /* { dg-do run } */
4 /* { dg-options "-std=c99 -pedantic-errors" } */
5 
6 /* Tests a whole bunch of things are correctly stringified.  */
7 
8 extern int strcmp (const char *, const char *);
9 extern int puts (const char *);
10 extern void abort (void);
11 #define err(str) do { puts(str); abort(); } while (0)
12 
13 #define str(x) #x
14 #define xstr(x) str(x)
15 #define strvar(...) #__VA_ARGS__
16 
17 #define glibc_str(x) glibc_str2 (w, x)
18 #define glibc_str2(w, x) #x
19 #define ver GLIBC_2.2
20 
main(int argc,char * argv[])21 int main (int argc, char *argv[])
22 {
23   str (\);		/* { dg-warning "valid string" "str(\\)" } */
24   str (\\);		/* OK.  */
25   str (\\\);		/* { dg-warning "valid string" "str(\\\\\\)" } */
26 
27   /* This also serves as a useful test of the value of __INCLUDE_LEVEL.  */
28   if (strcmp (xstr (__INCLUDE_LEVEL__), "0"))
29     err ("macro expansion");
30 
31   if (strcmp(str (__INCLUDE_LEVEL__), "__INCLUDE_LEVEL__"))
32     err ("macro name");
33 
34   if (strcmp(str(), "") || strcmp(str( ), ""))
35     err ("empty string");
36 
37   if (strcmp(str ("s\n"), "\"s\\n\""))
38     err ("quoted string");
39 
40   if (strcmp (str (ab), "a \200 b"))
41     err ("unprintable char");
42 
43   if (strcmp (str (	a    b@ c   ), "a b@ c"))
44     err ("internal whitespace");
45 
46   if (strcmp (str(a \n), "a \n"))
47     err ("backslash token");
48 
49   if (strcmp (strvar (foo, bar), "foo, bar"))
50     err ("variable arguments");
51 
52   if (strcmp (glibc_str (ver), "GLIBC_2.2"))
53     err ("whitespace");
54 
55   return 0;
56 }
57