2004-08-27 Martin Baulig <martin@ximian.com>
[mono.git] / mcs / btests / ConditionalStatementsC15.vb
1 REM LineNo: 13\r
2 REM ExpectedError: BC30058\r
3 REM ErrorMessage: Statements and labels are not valid between 'Select Case' and first 'Case'\r
4 \r
5 Imports System\r
6 \r
7 Module ConditionalStatementsC15\r
8 \r
9     Sub Main()\r
10         Dim i As Integer = 0\r
11         Select Case i\r
12                  \r
13                         Console.WriteLine("Hello World")\r
14                 Case >= 2\r
15                         Console.WriteLine("Compile time error")        \r
16         end select\r
17     End Sub\r
18 \r
19 End Module