mcs/btests/IntegerTypeCharTestB.vb

   1 Imports System
   2
   3 Module IntegerTypeCharTest
   4     Sub Main()
   5         Try
   6             Dim m As Integer
   7             m = f(20)
   8             If m <> 20 Then
   9                 Throw New Exception("IntegerTypeCharTest: failed")
  10             End If
  11             Exit Sub
  12         Catch e As Exception
  13             Console.WriteLine(e.Message)
  14         End Try
  15     End Sub
  16
  17     Function f%(ByVal param%)
  18         f%= param
  19     End Function
  20 End Module