DEADSOFTWARE

Добавлен модуль SYSTEM и тип SYSTEM.TYPE
[dsw-obn.git] / Test5.obn
1 MODULE Test5;
3 TYPE
4 R1 = RECORD END;
5 R2 = RECORD (R1) END;
6 R3 = RECORD END;
8 P1 = POINTER TO R1;
9 P2 = POINTER TO R2;
10 P3 = POINTER TO R3;
12 VAR
13 a : R1;
14 b : R2;
15 c : R3;
16 p1 : P1;
17 p2 : P2;
18 p3 : P3;
20 BEGIN
21 a := b;
22 p2 := p1(P2);
23 p1 := p2;
24 p3 := p3;
25 END Test5.