mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-12 00:28:24 +02: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.
|