1 union real_extract
2 {
3   double  d;
4   int i[sizeof (double ) / sizeof (int)];
5 };
6 
7 typedef struct
8 {
9   int zzzz;
10 } *rtx;
11 
12 rtx
immed_real_const_1(d)13 immed_real_const_1 (d)
14      double  d;
15 {
16   union real_extract u;
17   register rtx r;
18 
19   u.d = d;
20   foo (&(r->zzzz), &u);
21 }
22