projects
/
mono.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
* roottypes.cs: Rename from tree.cs.
[mono.git]
/
mcs
/
mbas
/
Test
/
tests
/
conversions
/
ExpConversionSingletoShortA.vb
1
'Author:
2
' V. Sudharsan (vsudharsan@novell.com)
3
'
4
' (C) 2005 Novell, Inc.
5
6
Module ExpConversionSingletoShortA
7
Sub Main()
8
Dim a as Single = 123.501
9
Dim b as Short
10
b = CShort(a)
11
if b <> 124
12
Throw new System.Exception("Single to Short Conversion is not working properly. Expected 124 but got " &b)
13
End if
14
End Sub
15
End Module