* testsuite/objc/execute/paste.m: Remove.

From-SVN: r45782

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 2d73c67a6d854e06750420b9a45829c883deda60..c2ddd9a23deffa5cc5f4958a569def346f7ca75f 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2001-09-24  Neil Booth  <neil@daikokuya.demon.co.uk>
+
+       * testsuite/objc/execute/paste.m: Remove.
+
 2001-09-22  Joseph S. Myers  <jsm28@cam.ac.uk>
 
        * gcc.dg/format/builtin-1.c, gcc.dg/format/ext-6.c: New tests.

diff --git a/gcc/testsuite/objc/execute/paste.m b/gcc/testsuite/objc/execute/paste.m
deleted file mode 100644 (file)
index ad69f38..0000000
--- a/gcc/testsuite/objc/execute/paste.m
+++ /dev/null
@@ -1,21 +0,0 @@
-/* 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;
-}