mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 09:58:27 +02:00
34 lines
528 B
ObjectPascal
34 lines
528 B
ObjectPascal
{ Old file: tbs0202.pp }
|
|
{ flag results not supported with case OK 0.99.11 (PFV) }
|
|
|
|
program silly;
|
|
|
|
var greater : boolean;
|
|
|
|
procedure error;
|
|
begin
|
|
Writeln('Error in tbs0202');
|
|
Halt(1);
|
|
end;
|
|
|
|
procedure compare(i,j : integer);
|
|
begin
|
|
case (i>j) of
|
|
true : begin
|
|
greater:=true;
|
|
end;
|
|
false : begin
|
|
greater:=false;
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
begin
|
|
compare(45,2);
|
|
if not greater then
|
|
error;
|
|
compare(-5,26);
|
|
if greater then
|
|
error;
|
|
end.
|