Mercurial > projects > ldc
diff tests/mini/union7.d @ 341:1bb99290e03a trunk
[svn r362] Started merging the old 'test' dir as well as the newer 'tangotests' dir into 'tests/mini' and 'tests/minicomplex'.
author | lindquist |
---|---|
date | Sun, 13 Jul 2008 02:51:19 +0200 |
parents | test/union7.d@058d3925950e |
children | 44f08170f4ef |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/tests/mini/union7.d Sun Jul 13 02:51:19 2008 +0200 @@ -0,0 +1,48 @@ +module union7; + +pragma(LLVM_internal, "notypeinfo") +struct Union +{ + union { + double g; + struct { + short s1,s2,s3,s4; + } + } + union { + float f; + long l; + } +} + +Union a = { f:4f }; +Union b = { 3.0, f:2 }; +Union c = { l:42, g:2.0 }; +Union d = { s2:3 }; +Union e = { s1:3, s4:4, l:5 }; + +void main() +{ + assert(a.f == 4f); + assert(a.g !<>= 0.0); + assert((a.l>>>32) == 0); + + assert(b.g == 3.0); + assert(b.f == 2f); + + assert(c.l == 42); + assert(c.g == 2.0); + + assert(d.s1 == 0); + assert(d.s2 == 3); + assert(d.s3 == 0); + assert(d.s4 == 0); + {assert(d.f !<>= 0f);} + {} + assert(e.s1 == 3); + assert(e.s2 == 0); + assert(e.s3 == 0); + {assert(e.s4 == 4);} + {} + assert(e.l == 5); +}