X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=Test5.obn;h=c92a3988517f433606078e5bcb01521fea95b0b3;hb=0b68ac1af511e1e47b1e6a8f5617200db6819ee5;hp=248d688013c8e3c239e60536032741a8fe114a25;hpb=49ad3c76fc9656759aab23d9034ebc33f8d8bd9d;p=dsw-obn.git

diff --git a/Test5.obn b/Test5.obn
index 248d688..c92a398 100644
--- a/Test5.obn
+++ b/Test5.obn
@@ -7,6 +7,7 @@ TYPE
 
   P1 = POINTER TO R1;
   P2 = POINTER TO R2;
+  P3 = POINTER TO R3;
 
 VAR
   a : R1;
@@ -14,9 +15,11 @@ VAR
   c : R3;
   p1 : P1;
   p2 : P2;
+  p3 : P3;
 
 BEGIN
   a := b;
   p2 := p1(P2);
-  p1 := p2(P2);
+  p1 := p2;
+  p3 := p3;
 END Test5.