DEADSOFTWARE
GIT
/
REPO
/
FRED-BOY
Projects
/
dsw-obn.git
/ blob
ecfde58b9f0e5fadb5eb6a9a884a62ede7a56351
[dsw-obn.git]
/
Test.obn
1
MODULE
Test
;
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
Test
.