DEADSOFTWARE
GIT
/
REPO
/
FRED-BOY
Projects
/
dsw-obn.git
/ blob
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
RTL перенесена в отдельную директорию
[dsw-obn.git]
/
tests
/
Test15.obn
1
MODULE
Test15
;
2
3
VAR
4
x
:
ARRAY
10
OF
INTEGER
;
5
p
:
POINTER
TO ARRAY OF ARRAY OF
INTEGER
;
6
7
BEGIN
8
NEW
(
p
,
20
,
30
);
9
ASSERT
(
LEN
(
x
,
0
) =
10
);
10
ASSERT
(
LEN
(
p^
,
0
) =
20
);
11
ASSERT
(
LEN
(
p^
,
1
) =
30
);
12
END
Test15
.
13
14
Тест
LEN
.