(DISTFILES): Comment out a few missing files.

[mono-project.git] / mcs / mbas / Test / tests / LongTypeCharTestB.vb

Imports System
Module LongTypeCharTest
    Sub Main()
        Try
            Dim m As Long
            m = f(20)
            If m <> 20 Then
                Throw New Exception("LongTypeCharTest: failed")
            End If
            Exit Sub
        Catch e As Exception
            Console.WriteLine(e.Message)
        End Try
    End Sub

    Function f&(ByVal param%)
        f& = param
    End Function
End Module