mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 12:18:30 +02:00
33 lines
455 B
ObjectPascal
33 lines
455 B
ObjectPascal
{ Source provided for Free Pascal Bug Report 2713 }
|
|
{ Submitted by "Wiktor Sywula" on 2003-10-05 }
|
|
{ e-mail: wswiktor@poczta.fm }
|
|
UNIT tw2713;
|
|
|
|
{$MODE OBJFPC}
|
|
|
|
INTERFACE
|
|
|
|
type trek=record
|
|
a,b,c:word;
|
|
end;
|
|
|
|
procedure rek(var r:trek; a,b,c:word);
|
|
function rek(a,b,c:word):trek;
|
|
|
|
IMPLEMENTATION
|
|
|
|
procedure rek(var r:trek; a,b,c:word);
|
|
begin
|
|
r.a:=a;
|
|
r.b:=b;
|
|
r.c:=c;
|
|
end;
|
|
|
|
function rek(a,b,c:word):trek;
|
|
begin
|
|
rek(rek,a,b,c);
|
|
end;
|
|
|
|
|
|
END.
|