mcs/btests/LocalVariablesC2.vb

   1 ' BC30290: Local variable cannot have the same name as the function containing it.\r
   2 \r
   3 Imports System\r
   4 \r
   5 Module LocalVariablesC2\r
   6 \r
   7     Function f1(ByVal a As Integer) As Integer\r
   8         Dim f1 As Integer = 10\r
   9         f1 = f1 + a\r
  10     End Function\r
  11 \r
  12     Sub Main()\r
  13         Console.WriteLine(f1(0))\r
  14     End Sub\r
  15 \r
  16 End Module