Mercurial > projects > ldc
view tests/mini/structs3.d @ 1065:dc576c7e4b1e
Fix to make sure to create gen/ in build dir and unbreak build with older perl
author | Frits van Bommel <fvbommel wxs.nl> |
---|---|
date | Sun, 08 Mar 2009 16:37:55 +0100 |
parents | 1bb99290e03a |
children |
line wrap: on
line source
module structs3; struct S { char c; float f; } struct T { S s; long l; } void main() { T t; float f = void; float* fp = void; {f = t.s.f;} {t.s.f = 0.0;} {fp = &t.s.f;} {*fp = 1.0;} {assert(t.s.f == 1.0);} {assert(*(&t.s.f) == 1.0);} {t.s.c = 'a';} {assert(t.s.c == 'a');} {t.l = 64;} {assert(t.l == 64);} }