mcs/btests/ModuleB.vb

   1 NameSpace NS
   2         Public Module M1
   3                 Public a As Integer
   4                 public Const b as integer = 10
   5                 Class C1
   6                 End Class
   7         End Module
   8
   9         Friend Module MainModule
  10                 Sub Main()
  11                         M1.a = 20
  12                         dim x as integer = M1.b
  13                         if (x <> 10) then
  14                                 Throw new System.Exception("#A1, Unexpected result")
  15                         end if
  16
  17                         x = NS.M1.b
  18                         if x <> 10 then
  19                                 Throw new System.Exception("#A2, Unexpected result")
  20                         end if
  21                 End Sub
  22         End Module
  23 End NameSpace