Mercurial > projects > dstress
comparison run/mini/nested13.d @ 1628:c6ef09dfba4d
add mini test set from ldc project
author | Moritz Warning <moritzwarning@web.de> |
---|---|
date | Mon, 10 Jan 2011 19:47:18 +0100 |
parents | |
children |
comparison
equal
deleted
inserted
replaced
1627:e1b954780837 | 1628:c6ef09dfba4d |
---|---|
1 module mini.nested13; | |
2 | |
3 extern(C) int printf(char*, ...); | |
4 | |
5 void main() | |
6 { | |
7 int var = 2; | |
8 | |
9 void exec(void delegate() dg) | |
10 { | |
11 printf("var = %d\n", var); | |
12 dg(); | |
13 } | |
14 | |
15 void foo() | |
16 { | |
17 printf("var = %d\n", var); | |
18 assert(var == 5); | |
19 } | |
20 | |
21 void bar() | |
22 { | |
23 printf("var = %d\n", var); | |
24 var += 3; | |
25 exec(&foo); | |
26 } | |
27 | |
28 printf("var = %d\n", var); | |
29 exec(&bar); | |
30 | |
31 return; | |
32 } |