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
24We used to get a space at the start of the line.  */
25
26 EMPTY_WITH_LEADING_SPACE
27f(:,)
28g(2, 2)
29
30/* { dg-final { scan-file avoidpaste2.i "(^|\\n): : : - > - >" } }
31   { dg-final { scan-file avoidpaste2.i "(^|\\n):2: :22 22:" } } */
32