mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-12 14:49:33 +02:00
20 lines
213 B
ObjectPascal
20 lines
213 B
ObjectPascal
{ %NORUN }
|
|
{ Test for internal error on line 17 }
|
|
|
|
program tw41175;
|
|
{$pointermath on}
|
|
|
|
type
|
|
PRec = ^TRec;
|
|
TRec = record
|
|
X: NativeInt;
|
|
end;
|
|
|
|
var
|
|
R: TRec;
|
|
|
|
begin
|
|
R:=PRec(nil)[0];
|
|
WriteLn('ok');
|
|
end.
|