gnu/dist/gcc4/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 }