mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 16:47:53 +02:00
19 lines
266 B
ObjectPascal
19 lines
266 B
ObjectPascal
{ %NORUN }
|
|
{ %OPT=-gt }
|
|
|
|
{$MODE OBJFPC}
|
|
program tw26271;
|
|
|
|
type
|
|
TRecord = record
|
|
Member: Pointer;
|
|
end;
|
|
|
|
function TestFunction(): TRecord;
|
|
begin // test.pas(10,1) Error: Can't assign values to const variable
|
|
Result := Default(TRecord);
|
|
end;
|
|
|
|
begin
|
|
end.
|