tests/Test5.obn

   1 MODULE Test5;
   2
   3 TYPE
   4   R1 = RECORD END;
   5   R2 = RECORD (R1) END;
   6   R3 = RECORD END;
   7
   8   P1 = POINTER TO R1;
   9   P2 = POINTER TO R2;
  10   P3 = POINTER TO R3;
  11
  12 VAR
  13   a : R1;
  14   b : R2;
  15   c : R3;
  16   p1 : P1;
  17   p2 : P2;
  18   p3 : P3;
  19
  20 BEGIN
  21   a := b;
  22   p2 := p1(P2);
  23   p1 := p2;
  24   p3 := p3;
  25 END Test5.