mcs/mbas/Test/errors/LocalVariablesC1.vb

   1 REM LineNo: 12
   2 REM ExpectedError: BC30616
   3 REM ErrorMessage: Variable 'a' hides a variable in an enclosing block.
   4
   5 Imports System
   6
   7 Module LocalVariablesC1
   8
   9     Function f1(ByVal a As Integer) As Integer
  10
  11         Dim b As Integer = 10
  12             For a As Integer = 0 to 10
  13             Console.WriteLine(a)
  14         Next
  15         Return a + b
  16
  17     End Function
  18
  19     Sub Main()
  20         f1(0)
  21     End Sub
  22
  23 End Module