Add new error case
[mono.git] / mcs / btests / LoopStatementsC5.vb
1 REM LineNo: 12\r
2 REM ExpectedError: BC30091\r
3 REM ErrorMessage: 'Loop' must be preceded by a matching 'Do'\r
4 \r
5 Imports System\r
6 \r
7 Module LoopStatementsC5\r
8 \r
9     Sub main()\r
10 \r
11         Console.WriteLine("Hello World")\r
12         Loop While 1\r
13 \r
14     End Sub\r
15 \r
16 End Module