mcs/btests/LocalVariables1.vb

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