mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-28 16:23:44 +02:00
34 lines
640 B
ObjectPascal
34 lines
640 B
ObjectPascal
program tb0454;
|
|
{ reported on fpc-devel by Jesus Reyes <jesusrmx@yahoo.com.mx> on 14 July 2003 }
|
|
{ as failing with 1.1 }
|
|
{$mode objfpc}
|
|
var
|
|
a,b: integer;
|
|
c,d,e,f: boolean;
|
|
|
|
function Ok: boolean;
|
|
begin
|
|
result := ( a = b )
|
|
and c = d
|
|
and e = f;
|
|
end;
|
|
|
|
var
|
|
r: boolean;
|
|
begin
|
|
a := 1;
|
|
b := 2;
|
|
c := false;
|
|
d := true;
|
|
e := false;
|
|
f := true;
|
|
|
|
r := Ok;
|
|
if not r then
|
|
begin
|
|
writeln('error, result should be true');
|
|
halt(1);
|
|
end;
|
|
end.
|
|
|