tests/Test25.obn

   1 MODULE Test25;
   2
   3 TYPE
   4   X = POINTER TO XDesc;
   5   XDesc = RECORD END;
   6
   7   Y = POINTER TO RECORD (XDesc) x : INTEGER END;
   8
   9 VAR
  10   x : X;
  11   y : Y;
  12   i : INTEGER;
  13
  14 BEGIN
  15   NEW(y);
  16   x := y;
  17   i := y.x;
  18   i := x(Y).x;
  19 END Test25.
  20
  21 Тест приведения типа с обращением к полю.