paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-18 05:39:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

bug #855

Browse Source
This commit is contained in:
pierre 2000-03-01 12:31:33 +00:00
parent 145a9c682f
commit bd7be9cf3e
1 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
tests/webtbs/tbug855.pp Normal file
View File

@ -0,0 +1,16 @@
{$MODE objfpc}
{$R+}
type
TMyRec = record
x: Integer;
end;
TMyArray = array[LongWord] of TMyRec;
PMyArray = ^TMyArray;
var
a: PMyArray;
i: Integer;
begin
GetMem(a, SizeOf(TMyRec));
i := 0;
a^[i].x := 1;
end.