mcs/mbas/Test/tests/IntegerTypeCharTest.vb

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