mcs/btests/LocalVariables1.vb

   1 ' In all ambiguous situations, the name resolves to the function rather than the local
   2 ' StackOverFlow Exception occurs
   3
   4 Imports System
   5
   6 Module LocalVariables1
   7
   8     Function f1() As Integer()
   9         f1(0) = 1
  10         f1(1) = 2
  11         Dim x As Integer = f1(0)
  12     End Function
  13
  14     Sub main()
  15         Dim b() As Integer = f1()
  16         Console.WriteLine("{0}  {1}", b(0), b(1))
  17     End Sub
  18
  19 End Module