paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-07-28 08:06:04 +02:00
Code Issues Packages Projects Releases Wiki Activity

* test for auto derefencing

Browse Source
This commit is contained in:
peter 2001-05-19 12:11:42 +00:00
parent 9f15f8638b
commit fc88544de0
1 changed files with 22 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
tests/tbs/tb0355.pp Normal file
View File

@ -0,0 +1,22 @@
{$mode delphi}
const
CSV_Internal = 10;
type
PTypeRec = ^TTypeRec;
TTypeRec = record
atypeid: Word;
end;
function ChangeType(newtype: PTypeRec): Pointer;
begin
if NewType.AtypeID = CSV_Internal then
begin
end;
end;
begin
end.