mcs/btests/DecimalLiteralC1.vb

   1 REM LineNo: 9
   2 REM ExpectedError: BC30036
   3 REM ErrorMessage: Overflow.
   4
   5 Imports System
   6 Module DecimalLiteral
   7         Sub Main()
   8                 Try
   9                         Dim a As Decimal=1.23E+40D
  10
  11                 Catch e As Exception
  12                         Console.WriteLine(e.Message)
  13                 End Try
  14         End Sub
  15 End Module