blob: cbf2a67c43c785871b2842037353166ac696a2a3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
{ Old file: tbs0223.pp }
{ wrong boolean evaluation in writeln OK 0.99.11 (PFV) }
uses
erroru;
var a:string;
begin
writeln('B:'='B:'); { debbuger evaluates this to FALSE }
if 'B:'='B:' then
writeln('OK')
else
error;
a:='A:';
inc(a[1]);
writeln(a='B:'); { TRUE }
if a='B:' then
writeln('OK')
else
error;
end.
|
