X-Git-Url: https://deadsoftware.ru/gitweb?p=dsw-obn.git;a=blobdiff_plain;f=Test5.obn;h=c92a3988517f433606078e5bcb01521fea95b0b3;hp=248d688013c8e3c239e60536032741a8fe114a25;hb=d25fb653bfe19a696d3f53abd784d32ba2d3ee03;hpb=f4aa48e4c1e3b81ccbe3da5c33fdaba3a46081dd

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.