mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 14:48:18 +02:00
25 lines
338 B
ObjectPascal
25 lines
338 B
ObjectPascal
{ %opt=-g-t }
|
|
|
|
program trashtest;
|
|
|
|
{$MODE OBJFPC}
|
|
|
|
type
|
|
TTestRec = record
|
|
Field1 : Int64;
|
|
end;
|
|
|
|
operator := (i: TTestRec) fR: Int64;
|
|
begin
|
|
fR := i.Field1;
|
|
end;
|
|
|
|
function TestFunc:TTestRec;
|
|
begin //error reported here
|
|
TestFunc.Field1 := 1;
|
|
end;
|
|
|
|
begin
|
|
WriteLn(TestFunc.Field1);
|
|
end.
|