mcs/mbas/Test/errors/ExceptionHandlingC8.vb

   1 REM LineNo: 14\r
   2 REM ExpectedError: BC30442\r
   3 REM ErrorMessage: 'Finally' must end with a matching 'End Try'\r
   4 \r
   5 Imports System\r
   6 \r
   7 Module ExceptionHandlingC8\r
   8 \r
   9     Sub Main()\r
  10 \r
  11         Dim i As Integer = 0\r
  12         Try\r
  13             i = 1 / i\r
  14         Finally\r
  15 \r
  16     End Sub\r
  17 \r
  18 End Module\r
  19 \r