1  /* { dg-do compile } */
       2  /* { dg-options "-w -O2 -g -fselective-scheduling2" } */
       3  
       4  typedef long unsigned int size_t;
       5  struct fileloc
       6  {
       7    const char *file;
       8  };
       9  typedef struct type *type_p;
      10  typedef const struct type *const_type_p;
      11  enum typekind
      12  {
      13    TYPE_STRUCT,
      14    TYPE_UNION,
      15    TYPE_POINTER,
      16    TYPE_LANG_STRUCT,
      17    TYPE_PARAM_STRUCT
      18  };
      19  struct type
      20  {
      21    enum typekind kind;
      22    union
      23    {
      24      struct
      25      {
      26        struct fileloc line;
      27      } s;
      28      struct
      29      {
      30        struct fileloc line;
      31      } param_struct;
      32    } u;
      33  };
      34  struct outf
      35  {
      36    size_t bufused;
      37    char *buf;
      38  };
      39  typedef struct outf *outf_p;
      40  oprintf (outf_p o, const char *format, ...)
      41  {
      42    char *s;
      43    size_t slength;
      44    memcpy (o->buf + o->bufused, s, slength);
      45  }
      46  output_mangled_typename (outf_p of, const_type_p t)
      47  {
      48      switch (t->kind)
      49        {
      50        case TYPE_POINTER: (fancy_abort ("/gcc/gengtype.c", 1988, __FUNCTION__));
      51      }
      52  }
      53  output_type_enum (outf_p of, type_p s)
      54  {
      55    if (s->kind == TYPE_PARAM_STRUCT && s->u.param_struct.line.file != ((void *)0))
      56      {
      57        oprintf (of, ", gt_e_");
      58      }
      59    else if (((s)->kind == TYPE_UNION || (s)->kind == TYPE_STRUCT || (s)->kind == TYPE_LANG_STRUCT) && s->u.s.line.file != ((void *)0))
      60      {
      61        oprintf (of, ", gt_ggc_e_");
      62        output_mangled_typename (of, s);
      63      }
      64    else
      65      oprintf (of, ", gt_types_enum_last");
      66  }