mcs/btests/EnumB.vb

   1 Imports System
   2
   3 Module M
   4         Enum E
   5                 A
   6                 B
   7         End Enum
   8
   9         Sub InInt(ByVal i As Integer)
  10         End Sub
  11
  12         Sub InLong(ByVal i As Long)
  13         End Sub
  14
  15         Sub InEnum(ByVal e As E)
  16         End Sub
  17
  18         Sub Main
  19                 Dim e1 As E
  20
  21                 e1 = E.A
  22                 If e1.GetType().ToString() <> GetType(E).ToString() Then
  23                         Throw New Exception("#A1: wrong type")
  24                 End If
  25                 If E.A.GetType().ToString() <> GetType(E).ToString() Then
  26                         Throw New Exception("#A2: wrong type")
  27                 End If
  28                 Dim e2 As E
  29                 e2 = e1
  30                 Dim i As Integer
  31                 i = e2
  32                 InInt(e2)
  33                 InInt(E.B)
  34                 InLong(e2)
  35                 InLong(E.B)
  36                 InEnum(e2)
  37                 InEnum(0)
  38         End Sub
  39 End Module