Исправлено падение при использовании процедурного типа

[dsw-obn.git] / Test7.obn

diff --git a/Test7.obn b/Test7.obn
index 739ec972c1c9ea3a5234bcb8b18c0aa3385df03d..e3613e4e53d70fc7e9db3bbc058b3aada74dbb77 100644 (file)
--- a/Test7.obn
+++ b/Test7.obn
@@ -4,14 +4,18 @@ IMPORT Out;
 
 VAR
   i : INTEGER;
+  ok : BOOLEAN;
 
 BEGIN
   Out.Open;
   i := 48;
   FOR i := 32 TO i DO
     Out.Int(i, 0); Out.Char(' ');
+    ok := TRUE;
   END;
   Out.Ln;
+
+  ASSERT(ok);
 END Test7.
 
 Проверка корректности FOR.