repo.or.cz
/
mono-project.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
**** Merged from MCS ****
[mono-project.git]
/
mcs
/
btests
/
StringLiteralsA.vb
blob
a134bcfd4098e87a2739c63822aaa158129a86ca
1
Imports System
2
Module
StringLiteral
3
Sub
Main
()
4
Try
5
Dim
a
As
String
=
"Hello"
6
Dim
b
As
String
=
" World "
7
Dim
c
As
String
=
47
8
Dim
d
As
String
=
a
+
b
+
c
9
If
d
<>
"Hello World 47"
Then
10
Throw
New
Exception
(
"StringLiteralA:Failed-String concatenation does not work right"
)
11
End If
12
Catch e
As
Exception
13
Console
.
WriteLine
(
e
.
Message
)
14
End
Try
15
16
End Sub
17
End Module