annotate run/in_out_body_03.d @ 1619:bebc7472a832

Fix #7.
author Christian Kamm <kamm incasoftware de>
date Sat, 07 Nov 2009 18:55:30 +0100
parents 6e4063f99377
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
131
460dbdcb3a85 Buchan <kbuchan@xtra.co.nz>
thomask
parents:
diff changeset
1 // $HeadURL$
460dbdcb3a85 Buchan <kbuchan@xtra.co.nz>
thomask
parents:
diff changeset
2 // $Date$
460dbdcb3a85 Buchan <kbuchan@xtra.co.nz>
thomask
parents:
diff changeset
3 // $Author$
460dbdcb3a85 Buchan <kbuchan@xtra.co.nz>
thomask
parents:
diff changeset
4
460dbdcb3a85 Buchan <kbuchan@xtra.co.nz>
thomask
parents:
diff changeset
5 // @author@ Buchan <kbuchan@xtra.co.nz>
460dbdcb3a85 Buchan <kbuchan@xtra.co.nz>
thomask
parents:
diff changeset
6 // @date@ 2004-11-14
140
a33ad7189d21 1) news:// -> news:
thomask
parents: 131
diff changeset
7 // @uri@ news:opshfzxz0b44buww@simon.homenet
1487
6e4063f99377 changed nntp: URLs to http: URLs
thomask
parents: 1383
diff changeset
8 // @uri@ http://www.digitalmars.com/pnews/read.php?server=news.digitalmars.com&group=digitalmars.D.bugs&artnum=2262
131
460dbdcb3a85 Buchan <kbuchan@xtra.co.nz>
thomask
parents:
diff changeset
9
736
1e6afb94ce6d updated meta data for Torture
thomask
parents: 516
diff changeset
10 // __DSTRESS_TORTURE_BLOCK__ -release
1e6afb94ce6d updated meta data for Torture
thomask
parents: 516
diff changeset
11
131
460dbdcb3a85 Buchan <kbuchan@xtra.co.nz>
thomask
parents:
diff changeset
12 module dstress.run.in_out_body_03;
460dbdcb3a85 Buchan <kbuchan@xtra.co.nz>
thomask
parents:
diff changeset
13
360
e38919011244 dif. fixes 3
thomask
parents: 140
diff changeset
14 bool in_checked;
e38919011244 dif. fixes 3
thomask
parents: 140
diff changeset
15 bool out_checked;
e38919011244 dif. fixes 3
thomask
parents: 140
diff changeset
16
131
460dbdcb3a85 Buchan <kbuchan@xtra.co.nz>
thomask
parents:
diff changeset
17 class MyClass{
460dbdcb3a85 Buchan <kbuchan@xtra.co.nz>
thomask
parents:
diff changeset
18 int i;
460dbdcb3a85 Buchan <kbuchan@xtra.co.nz>
thomask
parents:
diff changeset
19 }
460dbdcb3a85 Buchan <kbuchan@xtra.co.nz>
thomask
parents:
diff changeset
20
460dbdcb3a85 Buchan <kbuchan@xtra.co.nz>
thomask
parents:
diff changeset
21 void outer(){
460dbdcb3a85 Buchan <kbuchan@xtra.co.nz>
thomask
parents:
diff changeset
22 MyClass inner()
460dbdcb3a85 Buchan <kbuchan@xtra.co.nz>
thomask
parents:
diff changeset
23 in{
360
e38919011244 dif. fixes 3
thomask
parents: 140
diff changeset
24 in_checked=true;
131
460dbdcb3a85 Buchan <kbuchan@xtra.co.nz>
thomask
parents:
diff changeset
25 }out (result){
460dbdcb3a85 Buchan <kbuchan@xtra.co.nz>
thomask
parents:
diff changeset
26 assert(result.i==1);
360
e38919011244 dif. fixes 3
thomask
parents: 140
diff changeset
27 out_checked=true;
131
460dbdcb3a85 Buchan <kbuchan@xtra.co.nz>
thomask
parents:
diff changeset
28 }body{
516
592f9ae41ba5 post DMD-0.122 review [1+2/n]
thomask
parents: 360
diff changeset
29 MyClass s=new MyClass;
131
460dbdcb3a85 Buchan <kbuchan@xtra.co.nz>
thomask
parents:
diff changeset
30 s.i = 1;
460dbdcb3a85 Buchan <kbuchan@xtra.co.nz>
thomask
parents:
diff changeset
31 return s;
460dbdcb3a85 Buchan <kbuchan@xtra.co.nz>
thomask
parents:
diff changeset
32 }
460dbdcb3a85 Buchan <kbuchan@xtra.co.nz>
thomask
parents:
diff changeset
33 assert(inner.i==1);
460dbdcb3a85 Buchan <kbuchan@xtra.co.nz>
thomask
parents:
diff changeset
34 }
460dbdcb3a85 Buchan <kbuchan@xtra.co.nz>
thomask
parents:
diff changeset
35
460dbdcb3a85 Buchan <kbuchan@xtra.co.nz>
thomask
parents:
diff changeset
36 int main(){
460dbdcb3a85 Buchan <kbuchan@xtra.co.nz>
thomask
parents:
diff changeset
37 outer();
360
e38919011244 dif. fixes 3
thomask
parents: 140
diff changeset
38 assert(in_checked);
e38919011244 dif. fixes 3
thomask
parents: 140
diff changeset
39 assert(out_checked);
131
460dbdcb3a85 Buchan <kbuchan@xtra.co.nz>
thomask
parents:
diff changeset
40 return 0;
460dbdcb3a85 Buchan <kbuchan@xtra.co.nz>
thomask
parents:
diff changeset
41 }