gcc/testsuite/objc/execute/paste.m


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

/* Copyright (C) 2000 Free Software Foundation, Inc.  */

/* { dg-do run } */
/* { dg-options "" } */

#define str(x) #x
#define xstr(x) str(x)
#define glue(x, y) x ## y
extern int strcmp (const char *, const char *);
extern int puts (const char *);
extern void abort (void);
#define err(str) do { puts(str); abort(); } while (0)

int
main ()
{
  /* Test Objective C names.  */
  if (strcmp (xstr (glue (@, ident)), "@ident"))
    err ("Objective C names");
  return 0;
}