Mercurial > projects > ldc

annotate tests/mini/bug27.d @ 585:fbb1a366cfbc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Complex number should now follow the D ABI on x86. They're also treated as first class values now. Big change.
author Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>
date Tue, 09 Sep 2008 16:49:47 -0700
parents 1bb99290e03a
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
52
0c77619e803b [svn r56] Initial support for TypeInfo.
lindquist
parents:
diff changeset
1 module bug27;
0c77619e803b [svn r56] Initial support for TypeInfo.
lindquist
parents:
diff changeset
2
0c77619e803b [svn r56] Initial support for TypeInfo.
lindquist
parents:
diff changeset
3 int func(int a, int b)
0c77619e803b [svn r56] Initial support for TypeInfo.
lindquist
parents:
diff changeset
4 {
0c77619e803b [svn r56] Initial support for TypeInfo.
lindquist
parents:
diff changeset
5 if (a == b)
0c77619e803b [svn r56] Initial support for TypeInfo.
lindquist
parents:
diff changeset
6 return 0;
0c77619e803b [svn r56] Initial support for TypeInfo.
lindquist
parents:
diff changeset
7 else if (a < b)
0c77619e803b [svn r56] Initial support for TypeInfo.
lindquist
parents:
diff changeset
8 return -1;
0c77619e803b [svn r56] Initial support for TypeInfo.
lindquist
parents:
diff changeset
9 else
0c77619e803b [svn r56] Initial support for TypeInfo.
lindquist
parents:
diff changeset
10 return 1;
0c77619e803b [svn r56] Initial support for TypeInfo.
lindquist
parents:
diff changeset
11 }
0c77619e803b [svn r56] Initial support for TypeInfo.
lindquist
parents:
diff changeset
12
0c77619e803b [svn r56] Initial support for TypeInfo.
lindquist
parents:
diff changeset
13 void main()
0c77619e803b [svn r56] Initial support for TypeInfo.
lindquist
parents:
diff changeset
14 {
0c77619e803b [svn r56] Initial support for TypeInfo.
lindquist
parents:
diff changeset
15 int i = func(3,4);
0c77619e803b [svn r56] Initial support for TypeInfo.
lindquist
parents:
diff changeset
16 assert(i == -1);
0c77619e803b [svn r56] Initial support for TypeInfo.
lindquist
parents:
diff changeset
17 }