Merge branch 'master' of http://github.com/mono/mono
[mono.git] / mcs / tests / test-anon-95.cs
1 using System;\r
2 \r
3 public delegate int D ();\r
4 \r
5 public abstract class A\r
6 {\r
7         protected abstract event D Event;\r
8 }\r
9 \r
10 public class B : A\r
11 {\r
12         protected override event D Event;\r
13 \r
14         protected int Run ()\r
15         {\r
16                 return Event ();\r
17         }\r
18 }\r
19 \r
20 public class C : B\r
21 {\r
22         int Test (int i)\r
23         {\r
24                 Action a = () => base.Event += () => i;\r
25                 a ();\r
26                 return Run ();\r
27         }\r
28 \r
29         public static int Main ()\r
30         {\r
31                 if (new C ().Test (9) != 9)\r
32                         return 1;\r
33 \r
34                 return 0;\r
35         }\r
36 }