Test7.obn

   1 MODULE Test7;
   2
   3 IMPORT Out;
   4
   5 VAR
   6   i : INTEGER;
   7   ok : BOOLEAN;
   8
   9 BEGIN
  10   Out.Open;
  11   i := 48;
  12   FOR i := 32 TO i DO
  13     Out.Int(i, 0); Out.Char(' ');
  14     ok := TRUE;
  15   END;
  16   Out.Ln;
  17
  18   ASSERT(ok);
  19 END Test7.
  20
  21 Проверка корректности FOR.
  22 Сначала должна вычисляться выражение TO и только потом присвоение индекса.
  23 Результат должен быть: 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48