Test.obn

   1 MODULE Test;
   2
   3 IMPORT Out;
   4
   5 TYPE
   6   P1 = POINTER TO R1;
   7   P2 = POINTER TO R2;
   8   P3 = POINTER TO R3;
   9
  10   R1 = RECORD END;
  11   R2 = RECORD (R1) END;
  12   R3 = RECORD (R2) END;
  13
  14 VAR
  15   r : P1;
  16
  17 BEGIN
  18   NEW(r);
  19   Out.Open;
  20   WITH r : P1 DO
  21     Out.String("R1"); Out.Ln;
  22   END;
  23 END Test.