Mercurial > projects > ldc

annotate tests/mini/union1.d @ 1065:dc576c7e4b1e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 44f08170f4ef
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
73
b706170e24a9 [svn r77] Fixed foreach on slice.
lindquist
parents:
diff changeset
1 module union1;
b706170e24a9 [svn r77] Fixed foreach on slice.
lindquist
parents:
diff changeset
2
b706170e24a9 [svn r77] Fixed foreach on slice.
lindquist
parents:
diff changeset
3 union U
b706170e24a9 [svn r77] Fixed foreach on slice.
lindquist
parents:
diff changeset
4 {
b706170e24a9 [svn r77] Fixed foreach on slice.
lindquist
parents:
diff changeset
5 float f;
b706170e24a9 [svn r77] Fixed foreach on slice.
lindquist
parents:
diff changeset
6 int i;
b706170e24a9 [svn r77] Fixed foreach on slice.
lindquist
parents:
diff changeset
7 }
b706170e24a9 [svn r77] Fixed foreach on slice.
lindquist
parents:
diff changeset
8
b706170e24a9 [svn r77] Fixed foreach on slice.
lindquist
parents:
diff changeset
9 void main()
b706170e24a9 [svn r77] Fixed foreach on slice.
lindquist
parents:
diff changeset
10 {
b706170e24a9 [svn r77] Fixed foreach on slice.
lindquist
parents:
diff changeset
11 float f = 2;
b706170e24a9 [svn r77] Fixed foreach on slice.
lindquist
parents:
diff changeset
12 U u = U(f);
b706170e24a9 [svn r77] Fixed foreach on slice.
lindquist
parents:
diff changeset
13 assert(u.i == *cast(int*)&f);
b706170e24a9 [svn r77] Fixed foreach on slice.
lindquist
parents:
diff changeset
14 }