mcs/btests/NameSpaceD.vb

   1 'Imports System
   2 Namespace NS1
   3         Module M
   4                 Public a As Integer=20
   5         End Module
   6 End Namespace
   7 Namespace NS2
   8         Module M
   9                 Dim a As Integer=30
  10                 Sub Main()
  11                         Dim a As Integer=40
  12                         System.Console.WriteLine(a)
  13                         Try
  14                                 If a<>40 Then
  15                                         Throw New System.Exception("#A1:Namespace:Failed")
  16                                 End If
  17                                 If NS1.M.a<>20 Then
  18                                        Throw New System.Exception("#A2:Namespace:Failed")
  19                                 End If
  20                                 If NS2.M.a<>30 Then
  21                                         Throw New System.Exception("#A3:Namespace:Failed")
  22                                 End If
  23                         Catch e As Exception
  24                                 System.Console.WriteLine(e.Message)
  25                         End Try
  26                 End Sub
  27         End Module
  28 End Namespace
  29