1  /* Copyright (C) 2001, 2003 Free Software Foundation, Inc.  */
       2  
       3  /* { dg-do preprocess } */
       4  /* { dg-options "-ansi" } */
       5  
       6  /* This tests that we avoid accidental pasting, as well as gratuitous
       7     space insertion, in various nasty places _inside_ a macro's
       8     replacement list: on either side of a paste, and on either side of
       9     an argument.  It also tests that we don't pass empty macro leading
      10     whitespace to the next line - this problem use to break Emacs
      11     preprocessor abuse.
      12  
      13     Neil Booth, 1 Feb 2001.  */
      14  
      15  #define EMPTY_WITH_LEADING_SPACE
      16  #define f(x, y) :x: -y##> -##y>
      17  #define g(x, y) :x: :y##2 2##y:
      18  
      19  /* This should preprocess as
      20  
      21  : : : - > - >
      22  :2: :22 22:
      23  
      24  We used to get a space at the start of the line.  */
      25  
      26   EMPTY_WITH_LEADING_SPACE
      27  f(:,) 
      28  g(2, 2)
      29  
      30  /* { dg-final { scan-file avoidpaste2.i "(^|\\n): : : - > - >" } } 
      31     { dg-final { scan-file avoidpaste2.i "(^|\\n):2: :22 22:" } } */