blob: 9c6df331eb76ec2867c96d61a0cee7c4c9886045 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
{ Old file: tbs0009.pp }
{ tests comperations in function calls a(c<0); OK 0.9.2 }
var c:byte;
Procedure a(b:boolean);
begin
if b then writeln('TRUE') else writeln('FALSE');
end;
function Test_a(b:boolean) : string;
begin
if b then Test_a:='TRUE' else Test_a:='FALSE';
end;
begin {main program}
a(true); {works}
if Test_a(true)<>'TRUE' then halt(1);
a(false); {works}
if Test_a(false)<>'FALSE' then halt(1);
c:=0;
a(c>0); {doesn't work}
if Test_a(c>0)<>'FALSE' then halt(1);
a(c<0); {doesn't work}
if Test_a(c<0)<>'FALSE' then halt(1);
a(c=0);
if Test_a(c=0)<>'TRUE' then halt(1);
end.
|
