1 /* { dg-do compile { target powerpc*-*-* ia64-*-* x86_64-*-* } } */
2 /* { dg-options "-O2 -fselective-scheduling -fsel-sched-pipelining" } */
3 
4 typedef struct TypHeader
5 {
6   unsigned long size;
7   struct TypHeader **ptr;
8 } *TypHandle;
9 
10 extern TypHandle NewBag (unsigned int type, unsigned long size);
11 typedef unsigned long TypPoint32;
12 
13 TypHandle
QuoPP(TypHandle hdL,TypHandle hdR)14 QuoPP (TypHandle hdL, TypHandle hdR)
15 {
16   TypHandle hdC;
17   unsigned long degC;
18   TypPoint32 *ptC;
19   unsigned long degL;
20   TypPoint32 *ptL;
21   unsigned long degR;
22   TypPoint32 *ptR;
23   unsigned long p;
24 
25   degL = ((hdL)->size) / sizeof (TypPoint32);
26   degR = ((hdR)->size) / sizeof (TypPoint32);
27   degC = degL < degR ? degR : degL;
28   hdC = NewBag (9, (unsigned long) (degC * sizeof (TypPoint32)));
29   ptC = (TypPoint32 *) ((TypHandle *) ((hdC)->ptr));
30 
31   for (p = 0; p < degC; p++)
32     ptC[(((p) < (degR)) ? (ptR)[(p)] : (p))] =
33       ((((((p) < (degL)) ? (ptL)[(p)] : (p))) <
34         (degR)) ? (ptR)[((((p) < (degL)) ? (ptL)[(p)] : (p)))]
35        : ((((p) < (degL)) ? (ptL)[(p)] : (p))));
36 }
37 
38