mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-04 08:19:36 +01:00
12 lines
179 B
ObjectPascal
12 lines
179 B
ObjectPascal
{ %OPT=-Or}
|
|
|
|
procedure p(i1,i2,i3,i4,i5,i6,i7,i8 : longint;i : int64);
|
|
begin
|
|
if (i+i <> 22222222222) then
|
|
halt(1);
|
|
end;
|
|
|
|
begin
|
|
p(1,2,3,4,5,6,7,8,11111111111)
|
|
end.
|