13 lines
237 B
Plaintext
13 lines
237 B
Plaintext
! [file: repeat-err1.tri, started: 23-Apr-2004]
|
|
! Testing repeat/until-statement.
|
|
! error: repeat's expression is not a boolean.
|
|
|
|
let
|
|
var i: Integer
|
|
in begin
|
|
repeat
|
|
i := i+1
|
|
until i;
|
|
putint(i);
|
|
end;
|