annotate gcc/testsuite/gcc.dg/cpp/mac-dir-1.c @ 145:1830386684a0

gcc-9.2.0
author anatofuz
date Thu, 13 Feb 2020 11:34:05 +0900
parents 04ced10e8804
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
111
kono
parents:
diff changeset
1 /* Copyright (C) 2002 Free Software Foundation, Inc. */
kono
parents:
diff changeset
2
kono
parents:
diff changeset
3 /* { dg-do preprocess } */
kono
parents:
diff changeset
4
kono
parents:
diff changeset
5 /* Source: Neil Booth, 26 Feb 2002.
kono
parents:
diff changeset
6
kono
parents:
diff changeset
7 Test that we allow directives in macro arguments. */
kono
parents:
diff changeset
8
kono
parents:
diff changeset
9 /* { dg-do run } */
kono
parents:
diff changeset
10 /* { dg-options "" } */
kono
parents:
diff changeset
11
kono
parents:
diff changeset
12 #define f(x) x
kono
parents:
diff changeset
13 extern void abort (void);
kono
parents:
diff changeset
14
kono
parents:
diff changeset
15 int main ()
kono
parents:
diff changeset
16 {
kono
parents:
diff changeset
17 if (f (
kono
parents:
diff changeset
18 #if f(1) /* True. */
kono
parents:
diff changeset
19 0)) /* False. */
kono
parents:
diff changeset
20 #else
kono
parents:
diff changeset
21 1))
kono
parents:
diff changeset
22 #endif
kono
parents:
diff changeset
23 abort ();
kono
parents:
diff changeset
24
kono
parents:
diff changeset
25 /* Outer f expands to original definition, f in argument expands
kono
parents:
diff changeset
26 to new definition, so result is: if (1 != 2 - 1). */
kono
parents:
diff changeset
27 if (1 != f(2
kono
parents:
diff changeset
28 #undef f
kono
parents:
diff changeset
29 #define f - 1
kono
parents:
diff changeset
30 f))
kono
parents:
diff changeset
31 abort ();
kono
parents:
diff changeset
32
kono
parents:
diff changeset
33 return 0;
kono
parents:
diff changeset
34 }