mcs/mbas/Test/tests/ConstantA.vb

   1 Imports System
   2
   3 Module ConstantA
   4     Public Const a As Integer = 10
   5     Const b As Boolean = True, c As Long = 20
   6     Const d = 20
   7     Const e% = 10
   8     Const f% = 10, g# = 20
   9     Sub Main()
  10         If a.GetTypeCode() <> TypeCode.Int32 Then
  11             Throw New System.Exception("#A1, Type mismatch found")
  12         End If
  13         If b.GetTypeCode() <> TypeCode.Boolean Then
  14             Throw New System.Exception("#A2, Type mismatch found")
  15         End If
  16         If c.GetTypeCode() <> TypeCode.Int64 Then
  17             Throw New System.Exception("#A3, Type mismatch found")
  18         End If
  19         If d.GetTypeCode() <> TypeCode.Int32 Then
  20             Throw New System.Exception("#A4, Type mismatch found")
  21         End If
  22         If e.GetTypeCode() <> TypeCode.Int32 Then
  23             Throw New System.Exception("#A5, Type mismatch found")
  24         End If
  25         If f.GetTypeCode() <> TypeCode.Int32 Then
  26             Throw New System.Exception("#A6, Type mismatch found")
  27         End If
  28         If g.GetTypeCode() <> TypeCode.Double Then
  29             Throw New System.Exception("#A7, Type mismatch found")
  30         End If
  31     End Sub
  32 End Module