fpcsrc/tests/tbs/tb0070.pp


1
2
3
4
5
6
7
8
9
10
11

{ Old file: tbf0343.pp }

{$mode delphi}
type
  TListEntry = record
    Next: ^TListEntry;                    // delphi and fpc allows this now
    Data: Integer;
  end;

begin
end.