mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 08:18:12 +02:00
20 lines
241 B
ObjectPascal
20 lines
241 B
ObjectPascal
program tw38122b;
|
|
{$mode delphi}
|
|
uses sysutils;
|
|
type trec=record
|
|
i:integer;
|
|
end;
|
|
|
|
var rec:trec;
|
|
prec:^trec;
|
|
s: string;
|
|
begin
|
|
rec.i:=20;
|
|
prec:=@rec;
|
|
s:=prec.i.tostring;
|
|
//writeln(s);
|
|
if s<>'20' then
|
|
halt(1);
|
|
end.
|
|
|