1 /* { dg-do compile } */
3 typedef struct TypHeader
{
4 struct TypHeader
* * ptr
;
7 extern TypHandle (* EvTab
[81]) ( TypHandle hd
);
8 TypHandle
FunApplyRel ( TypHandle hdCall
)
14 hdApp
= ((long)(((TypHandle
*)((hdCall
)->ptr
))[1])&1 ?
15 (((TypHandle
*)((hdCall
)->ptr
))[1]) : (*
16 EvTab
[(((long)(((TypHandle
*)((hdCall
)->ptr
))[1]) & 1) ? 1 :
17 ((((TypHandle
*)((hdCall
)->ptr
))[1])->type
))])((((TypHandle
*)((hdCall
)->ptr
))[1])));
18 ptApp
= ((TypHandle
*)((hdApp
)->ptr
));
19 ptApp
[1] = ((TypHandle
) (((long)(lp
) << 2) + 1));
20 ptApp
[2] = ((TypHandle
) (((long)(lc
) << 2) + 1));
23 /* { dg-final { cleanup-tree-dump "vect" } } */