DEADSOFTWARE

В Files реализовано ещё несколько процедур
[dsw-obn.git] / tests / Test21.obn
1 MODULE Test21;
3 TYPE
4 PA = POINTER TO A;
6 PC = POINTER TO C;
8 A = RECORD nt : PA END;
9 B = RECORD (A) z : PC; next : PB END;
11 C = ARRAY 3 OF PB;
13 PB = POINTER TO B;
15 VAR
16 p : PA;
18 BEGIN
19 NEW(p);
20 p.nt := NIL;
21 END Test21.
23 Тест определений наперёд.