mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 17:47:50 +02:00
25 lines
505 B
ObjectPascal
25 lines
505 B
ObjectPascal
type
|
|
tstr255 = string[255];
|
|
|
|
procedure ttt(i1:integer;s1:tstr255;b1:byte;i2:integer;
|
|
i3:integer;i4:integer;c1:char;s2,s3,s4,s5:tstr255);
|
|
|
|
begin
|
|
if (i1 <> 1) or
|
|
(s1 <> 'test1') or
|
|
(b1 <> 1) or
|
|
(i2 <> 2) or
|
|
(i3 <> 3) or
|
|
(i4 <> 4) or
|
|
(c1 <> 'A') or
|
|
(s2 <> 'test2') or
|
|
(s3 <> 'test3') or
|
|
(s4 <> 'test4') or
|
|
(s5 <> 'test5') then
|
|
halt(1);
|
|
end;
|
|
|
|
begin
|
|
ttt(1,'test1',1,2,3,4,'A','test2','test3','test4','test5');
|
|
end.
|