paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-30 18:59:41 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Adding test to catch internal error 200411013

Browse Source
This commit is contained in:
J. Gareth "Curious Kit" Moreton 2025-03-06 11:31:31 +00:00 committed by FPK
parent 2b9455e262
commit a90e4358c0
1 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
tests/webtbs/tw41175.pp Normal file
View File

@ -0,0 +1,19 @@
{ %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.