mcs/btests/NSB.vb

   1 Namespace nms1\r
   2     Module NSB\r
   3         Public Function f() As Integer\r
   4             Dim c As NSA = New NSA()\r
   5             Return c.z\r
   6         End Function\r
   7 \r
   8         Sub Main()\r
   9             Dim i As Integer = f()\r
  10             If i <> 5 Then\r
  11                 Throw New System.Exception("value of nms1.NSA.z got changed")\r
  12             End If\r
  13         End Sub\r
  14     End Module\r
  15 End Namespace