1  /* { dg-do compile } */
       2  
       3  __extension__ typedef __UINTPTR_TYPE__ uintptr_t;
       4  
       5  typedef struct TypHeader {
       6       struct TypHeader * * ptr;
       7       unsigned char type;
       8   } * TypHandle;
       9   extern TypHandle (* EvTab[81]) ( TypHandle hd );
      10   TypHandle FunApplyRel ( TypHandle hdCall )
      11   {
      12       TypHandle hdApp;
      13       TypHandle * ptApp;
      14       long lp;
      15       long lc;
      16       hdApp = ((uintptr_t)(((TypHandle*)((hdCall)->ptr))[1])&1 ?
      17  (((TypHandle*)((hdCall)->ptr))[1]) : (*
      18  EvTab[(((uintptr_t)(((TypHandle*)((hdCall)->ptr))[1]) & 1) ? 1 :
      19  ((((TypHandle*)((hdCall)->ptr))[1])->type))])((((TypHandle*)((hdCall)->ptr))[1])));
      20       ptApp = ((TypHandle*)((hdApp)->ptr));
      21       ptApp[1] = ((TypHandle) (uintptr_t) (((long)(lp) << 2) + 1));
      22       ptApp[2] = ((TypHandle) (uintptr_t) (((long)(lc) << 2) + 1));
      23   }
      24