2004-12-14 Gonzalo Paniagua Javier <gonzalo@ximian.com>

[mono.git] / mcs / btests / DelegateA.vb

diff --git a/mcs/btests/DelegateA.vb b/mcs/btests/DelegateA.vb
index 0dbf2abdbae41e83bd8d716f76ff558235c3c064..b7125c097c19d6d4031fe3d719639324573ce295 100644 (file)
--- a/mcs/btests/DelegateA.vb
+++ b/mcs/btests/DelegateA.vb
@@ -3,13 +3,19 @@ Imports System
 Module M
        Delegate Sub SD()
        sub f()
+               System.Console.WriteLine("s called")
        End sub
 
        Public Delegate Function SF(a as integer) as Integer
        Public Function f1(a as integer) as Integer
+               System.Console.WriteLine("f1 called")
                return a
        End Function
 
+       Public Function TD(d as SD) as Integer
+               d.Invoke()
+       End Function
+
        Sub Main()
                dim d1 as SD 
                d1 = new SD(AddressOf f)
@@ -29,6 +35,7 @@ Module M
                        Throw new System.Exception ("#A1, Unexpected result")
                 end if
 
+               TD(AddressOf f)
                
        End Sub
 End Module