fpcsrc/tests/tbs/tb0501.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

{ %OPT=-Sen -vn }

{$mode objfpc}

type
  tc = class
    procedure t;
    private
      fleft: tc;
  end;

procedure tc.t;
var
  oldroot: tc;
begin
  fleft := nil;
  oldroot := nil;
  oldroot.fleft := nil;
end;

begin
end.