Mercurial > projects > ldc
view test/union5.d @ 326:d7e42b5d8ccd trunk
[svn r347] Foundation for adding tangobos to test environment is in place.
author | ChristianK |
---|---|
date | Thu, 10 Jul 2008 21:29:15 +0200 |
parents | 9e1bd80a7e98 |
children |
line wrap: on
line source
module union5; pragma(LLVM_internal, "notypeinfo") { union S { T t; U u; uint i; struct { ushort sl,sh; } } struct T { int i; } struct U { float f; } } void main() { S s; assert(s.t.i == 0); assert(s.u.f == 0); s.t.i = -1; assert(s.i == 0xFFFF_FFFF); float f = 3.1415; s.u.f = f; uint pi = *cast(uint*)&f; assert(s.i == pi); assert(s.sl == (pi&0xFFFF)); assert(s.sh == (pi>>>16)); }