gcc/testsuite/objc/execute/paste.m

   1 /* Copyright (C) 2000 Free Software Foundation, Inc.  */
   2
   3 /* { dg-do run } */
   4 /* { dg-options "" } */
   5
   6 #define str(x) #x
   7 #define xstr(x) str(x)
   8 #define glue(x, y) x ## y
   9 extern int strcmp (const char *, const char *);
  10 extern int puts (const char *);
  11 extern void abort (void);
  12 #define err(str) do { puts(str); abort(); } while (0)
  13
  14 int
  15 main ()
  16 {
  17   /* Test Objective C names.  */
  18   if (strcmp (xstr (glue (@, ident)), "@ident"))
  19     err ("Objective C names");
  20   return 0;
  21 }