Merge pull request #3563 from lewurm/interpreter
[mono.git] / mcs / tests / test-anon-99.cs
1 using System;
2
3 class C
4 {
5         void Test ()
6         {
7                 Action a = delegate {
8                         {
9                                 object ca = 3;
10                                 {
11                                         int location = 0;
12
13                                         Action a2 = delegate {
14                                                 {
15                                                         location = 1;
16
17                                                         object routing = ca;
18
19                                                         Action a4 = delegate {
20                                                                 if (routing != null) {
21                                                                         Console.WriteLine ("ok");
22                                                                 }
23                                                         };
24                                                         
25                                                         a4 ();
26                                                 }
27                                         };
28                                         
29                                         a2 ();
30                                 }
31                         }
32                 };
33                 
34                 a ();
35         }
36
37         public static int Main ()
38         {
39                 new C ().Test ();
40                 return 0;
41         }
42 }