Правила совместимости типов приведены в соответствие со страндатром

[dsw-obn.git] / Test5.obn

diff --git a/Test5.obn b/Test5.obn
index 248d688013c8e3c239e60536032741a8fe114a25..c92a3988517f433606078e5bcb01521fea95b0b3 100644 (file)
--- 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.