DEADSOFTWARE
GIT
/
REPO
/
FRED-BOY
Projects
/
dsw-obn.git
/ blob
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Реализовано несколько процедур записи в Files, исправление проблем в SYSTEM и Oberon
[dsw-obn.git]
/
tests
/
Test27.obn
1
MODULE
Test27
;
2
3
TYPE
4
A
=
POINTER
TO RECORD
B
:
B
;
END
;
5
6
B
=
POINTER
TO RECORD
x
:
A
END
;
7
8
VAR
9
a
:
A
;
10
11
PROCEDURE
Do
;
12
TYPE
13
ListPtr
=
POINTER
TO
ListNode
;
14
ListNode
=
RECORD
next
:
ListPtr
END
;
15
BEGIN
16
END
Do
;
17
18
BEGIN
19
NEW
(
a
);
20
a
.
B
:=
NIL
;
21
END
Test27
.
22
23
Тест опережающего объявления локальных типов
.