diff --git a/Test7.obn b/Test7.obn
index 739ec972c1c9ea3a5234bcb8b18c0aa3385df03d..e3613e4e53d70fc7e9db3bbc058b3aada74dbb77 100644 (file)
--- a/Test7.obn
+++ b/Test7.obn
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.