**** Merged from MCS ****
[mono-project.git] / mcs / mbas / Test / tests / ConstantA.vb
blob7c9d86730876c1a8add4e25bfe8c86199e79a855
1 Imports System
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