mcs/btests/NSB.vb

   1 REM LineNo: 8
   2 REM ExpectedError: BC30002
   3 REM ErrorMessage: Type 'NSA' is not defined.
   4
   5 Namespace nms1
   6     Module NSB
   7         Public Function f() As Integer
   8             Dim c As NSA = New NSA()
   9             Return c.z
  10         End Function
  11
  12         Sub Main()
  13             Dim i As Integer = f()
  14             If i <> 5 Then
  15                 Throw New System.Exception("value of nms1.NSA.z got changed")
  16             End If
  17         End Sub
  18     End Module
  19 End Namespace