mcs/btests/IntegerLiteralTestC4.vb

   1 Module IntegerLiteralTestC4\r
   2     Sub Main()\r
   3         Try\r
   4             Dim i As Int16\r
   5             i = A\r
   6         Catch e As Exception\r
   7             Console.WriteLine(e.Message)\r
   8         End Try\r
   9     End Sub\r
  10 End Module\r