Imported gcc-4.4.3

[msp430-gcc.git] / gcc / testsuite / gcc.dg / cpp / paste2.c

diff --git a/gcc/testsuite/gcc.dg/cpp/paste2.c b/gcc/testsuite/gcc.dg/cpp/paste2.c
deleted file mode 100644 (file)
index 1958918..0000000
--- a/gcc/testsuite/gcc.dg/cpp/paste2.c
+++ /dev/null
@@ -1,118 +0,0 @@
-/* Copyright (C) 2000 Free Software Foundation, Inc.  */
-
-/* { dg-do run } */
-/* { dg-options "-std=c99 -pedantic-errors" } */
-
-/* Test ## behaviour and corner cases thoroughly.  The macro expander
-   failed many of these during development.  */
-
-#ifndef __WCHAR_TYPE__
-#define __WCHAR_TYPE__ int
-#endif
-typedef __WCHAR_TYPE__ wchar_t;
-
-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)
-
-#define EMPTY
-#define str(x) #x
-#define xstr(x) str(x)
-#define glue(x, y) x ## y
-#define xglue(x, y) glue (x, y)
-#define glue3(x, y, z) x ## y ## z
-#define glue_var(x, ...) x ## __VA_ARGS__
-
-#define __muldi3 __NDW(mul, 3 = 50)
-#define __NDW(a,b) __ ## a ## di ## b
-#define m3 NDW()
-#define NDW(x) m3 ## x = 50
-#define five 5
-#define fifty int fif ## ty
-
-/* Defines a function called glue, returning what it is passed.  */
-int glue (glue,) (int x)
-{
-  return x;
-}
-
-int main ()
-{
-  /* m3 and __muldi3 would sometimes cause an infinite loop.  Ensure
-     we only expand fifty once.  */
-  fifty = 50, m3, __muldi3;
-
-  /* General glue and macro expanding test.  */
-  int five0 = xglue (glue (fi, ve), 0);
-
-  /* Tests only first and last tokens are pasted, and pasting to form
-     the != operator.  Should expand to: if (five0 != 50).  */
-  if (glue3 (fi, ve0 !,= glue (EMPTY 5, 0)))
-    err ("five0 != 50");
-
-  /* Test varags pasting, and pasting to form the >> operator.  */
-  if (glue_var(50 >, > 1 != 25))
-    err ("Operator >> pasting");
-
-  /* The LHS should not attempt to expand twice, and thus becomes a
-     call to the function glue.  */
-  if (glue (gl, ue) (12) != 12)
-    err ("Recursive macros");
-
-  /* Test placemarker pasting.  The glued lines should all appear
-     neatly in the same column and below each other, though we don't
-     test that here.  */
-  {
-    int glue3(a, b, ) = 1, glue3(a,,) = 1;
-    glue3(a, , b)++;
-    glue3(, a, b)++;
-    glue3(,a,)++;
-    glue3(,,a)++;
-    if (a != 3 || ab != 3 glue3(,,))
-      err ("Placemarker pasting");
-  }
-
-  /* Test that macros in arguments are not expanded.  */
-  {
-    int glue (EMPTY,1) = 123, glue (T, EMPTY) = 123;
-    if (EMPTY1 != 123 || TEMPTY != 123)
-      err ("Pasted arguments macro expanding");
-  }
-
-  /* Test various paste combinations.  */
-  {
-    const wchar_t* wc_array = glue(L, "wide string");
-    wchar_t wc = glue(L, 'w');
-    const char * hh = xstr(xglue(glue(%, :), glue(%, :)));
-    int array glue (<, :) 1 glue (:, >) = glue(<, %) 1 glue(%, >);
-    int x = 4;
-
-    if (array[0] != 1)
-      err ("Digraph pasting");
-
-    x glue (>>, =) 1;          /* 2 */
-    x glue (<<, =) 1;          /* 4 */
-    x glue (*, =) 2;           /* 8 */
-    x glue (+, =) 100;         /* 108 */
-    x glue (-, =) 50;          /* 58 */
-    x glue (/, =) 2;           /* 29 */
-    x glue (%, =) 20;          /* 9 */
-    x glue (&, =) 254;         /* 8 */
-    x glue (|, =) 16;          /* 24 */
-    x glue (^, =) 18;          /* 10 */
-    
-    if (x != 10 || 0 glue (>, =) 1 glue (|, |) 1 glue (<, =) 0)
-      err ("Various operator pasting");
-    if (strcmp (hh, "%:%:"))
-      err ("Pasted digraph spelling");
-    if ((glue (., 1) glue (!, =) .1))
-      err ("Pasted numbers 1");
-    /* glue3 here will only work if we paste left-to-right.  If a
-       future implementation does not do this, change the test.  */
-    if (glue3 (1.0e, +, 1) != 10.0)
-      err ("Pasted numbers 2");
-  }
-
-  return 0;
-}