DEADSOFTWARE

Добавлено экспортирование объектов в модулях
[dsw-obn.git] / test / Test.Mod
1 MODULE Test;
3 IMPORT Out;
5 TYPE
6 PVector = POINTER TO Vector;
7 Vector = ARRAY 3 OF INTEGER;
9 VAR
10 a : PVector;
11 b : Vector;
13 BEGIN
14 Out.Open;
16 NEW(a);
17 a^ := b;
19 Out.Flush;
20 END Test.