tests/Test21.obn

   1 MODULE Test21;
   2
   3 TYPE
   4   PA = POINTER TO A;
   5
   6   PC = POINTER TO C;
   7
   8   A = RECORD nt : PA END;
   9   B = RECORD (A) z : PC; next : PB END;
  10
  11   C = ARRAY 3 OF PB;
  12
  13   PB = POINTER TO B;
  14
  15 VAR
  16   p : PA;
  17
  18 BEGIN
  19   NEW(p);
  20   p.nt := NIL;
  21 END Test21.
  22
  23 Тест определений наперёд.