11 lines
132 B
ObjectPascal
11 lines
132 B
ObjectPascal
|
var i: integer;
|
|||
|
|
function f1: boolean?;
|
|||
|
|
begin
|
|||
|
|
Inc(i);
|
|||
|
|
Result := false;
|
|||
|
|
end;
|
|||
|
|
begin
|
|||
|
|
assert(f1 <> true);
|
|||
|
|
assert(i = 1);
|
|||
|
|
end.
|