mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-19 06:19:32 +02:00
13 lines
183 B
ObjectPascal
13 lines
183 B
ObjectPascal
type
|
|
tref=record
|
|
ofs : longint;
|
|
end;
|
|
|
|
procedure p(const ref:tref);
|
|
begin
|
|
with ref do
|
|
ofs:=ofs+1; { This should issue an error, because ref is const ! }
|
|
end;
|
|
|
|
begin
|
|
end. |