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
/
ArrayB.vb
blob
dfd05cf517a16e4a0e144d9159bfa2e56bcf49ba
1
REM LineNo: 12
2
REM ExpectedError: BC30451
3
REM ErrorMessage: Name 'IsArray' is not declared.
4
5
Imports System
6
7
Module
VariableC
8
Dim
a
()
As
Integer
' = {1, 2, 3, 4, 5}
9
10
Sub
Main
()
11
dim
arry
as
boolean
12
arry
=
IsArray
(
a
)
13
If
arry
<>
true then
14
Throw
New
Exception
(
"#A1, Not an Array"
)
15
End If
16
17
18
ReDim Preserve
a
(
10
)
19
Console
.
WriteLine
(
a
(
7
))
20
21
End Sub
22
End Module