tests/Test27.obn

   1 MODULE Test27;
   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 Test27.
  22
  23 Тест опережающего объявления локальных типов.