Mercurial > projects > ldc

annotate tests/mini/bug15.d @ 470:5e9883a7f9a5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
added testcase for taking address of function as constant expr.
author Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>
date Mon, 04 Aug 2008 03:40:08 +0200
parents 1bb99290e03a
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
40
8b0e809563df [svn r44] Lots of bug fixes.
lindquist
parents:
diff changeset
1 module bug15;
8b0e809563df [svn r44] Lots of bug fixes.
lindquist
parents:
diff changeset
2
8b0e809563df [svn r44] Lots of bug fixes.
lindquist
parents:
diff changeset
3 bool bool1(bool b) {
8b0e809563df [svn r44] Lots of bug fixes.
lindquist
parents:
diff changeset
4 if (b) return true;
8b0e809563df [svn r44] Lots of bug fixes.
lindquist
parents:
diff changeset
5 else return false;
8b0e809563df [svn r44] Lots of bug fixes.
lindquist
parents:
diff changeset
6 }
8b0e809563df [svn r44] Lots of bug fixes.
lindquist
parents:
diff changeset
7
8b0e809563df [svn r44] Lots of bug fixes.
lindquist
parents:
diff changeset
8 bool bool2(bool b) {
8b0e809563df [svn r44] Lots of bug fixes.
lindquist
parents:
diff changeset
9 if (b) {return true;}
8b0e809563df [svn r44] Lots of bug fixes.
lindquist
parents:
diff changeset
10 else {return false;}
8b0e809563df [svn r44] Lots of bug fixes.
lindquist
parents:
diff changeset
11 }
8b0e809563df [svn r44] Lots of bug fixes.
lindquist
parents:
diff changeset
12
8b0e809563df [svn r44] Lots of bug fixes.
lindquist
parents:
diff changeset
13 void main()
8b0e809563df [svn r44] Lots of bug fixes.
lindquist
parents:
diff changeset
14 {
8b0e809563df [svn r44] Lots of bug fixes.
lindquist
parents:
diff changeset
15 assert(bool1(true));
8b0e809563df [svn r44] Lots of bug fixes.
lindquist
parents:
diff changeset
16 assert(!bool2(false));
8b0e809563df [svn r44] Lots of bug fixes.
lindquist
parents:
diff changeset
17 }