Mercurial > projects > ldc

annotate test/bug27.d @ 127:facc562f5674 trunk

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[svn r131] Fixed #11 All associative array properties now work as they should. Fixed problems with some cases of array.length and array.ptr. Fixed some problems with array properties. Fixed 'in' contracts.
author lindquist
date Fri, 30 Nov 2007 12:56:52 +0100
parents 0c77619e803b
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 }