mcs/mbas/Test/errors/ExceptionHandlingC8.vb

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