111
|
1 /* { dg-do compile } */
|
131
|
2 /* { dg-require-effective-target bswap } */
|
111
|
3 /* { dg-options "-O2 -fdump-tree-bswap" } */
|
|
4 /* { dg-additional-options "-march=z900" { target s390-*-* } } */
|
|
5
|
|
6 struct L { unsigned int l[2]; };
|
|
7 union U { double a; struct L l; } u;
|
|
8
|
|
9 void
|
|
10 foo (double a, struct L *p)
|
|
11 {
|
|
12 u.a = a;
|
|
13 struct L l = u.l, m;
|
|
14 m.l[0] = (((l.l[1] & 0xff000000) >> 24)
|
|
15 | ((l.l[1] & 0x00ff0000) >> 8)
|
|
16 | ((l.l[1] & 0x0000ff00) << 8)
|
|
17 | ((l.l[1] & 0x000000ff) << 24));
|
|
18 m.l[1] = (((l.l[0] & 0xff000000) >> 24)
|
|
19 | ((l.l[0] & 0x00ff0000) >> 8)
|
|
20 | ((l.l[0] & 0x0000ff00) << 8)
|
|
21 | ((l.l[0] & 0x000000ff) << 24));
|
|
22 *p = m;
|
|
23 }
|
|
24
|
|
25 void
|
|
26 bar (double a, struct L *p)
|
|
27 {
|
|
28 foo (a, p);
|
|
29 }
|
|
30
|
|
31 /* { dg-final { scan-tree-dump-times "32 bit bswap implementation found at" 2 "bswap" } } */
|