]> git.ipfire.org Git - thirdparty/gcc.git/blob - gcc/testsuite/gcc.dg/tree-ssa/20040209-1.c
Merge tree-ssa-20020619-branch into mainline.
[thirdparty/gcc.git] / gcc / testsuite / gcc.dg / tree-ssa / 20040209-1.c
1 /* { dg-do compile } */
2 /* { dg-options "-O2 -Wuninitialized" } */
3
4 typedef union tree_node *tree;
5
6 struct tree_common
7 {
8 tree chain;
9 };
10
11 struct tree_decl
12 {
13 struct tree_common common;
14 tree name;
15 };
16
17
18 union tree_node
19 {
20 struct tree_common common;
21 struct tree_decl decl;
22 };
23
24 int pedantic;
25
26 void
27 finish_struct (tree t, tree fieldlist, tree attributes)
28 {
29 union tree_node * x;
30
31 if (pedantic)
32 {
33 x = fieldlist;
34 if (x->decl.name == 0)
35 {
36 while (x)
37 x = x->common.chain;
38 foo (fieldlist);
39 }
40 }
41
42 x = fieldlist;
43 if (x)
44 {
45 do
46 {
47 x = x->common.chain;
48 } while (x != 0);
49 }
50
51 bar1 (&fieldlist);
52 }