fpcsrc/tests/test/trangeob.pp


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

{ %opt=-CR -S2 }

type
  tc1 = class
  end;

  tc2 = class(tc1)
  end;

procedure t(var c: tc2);
begin
end;

var
  c: tc1;
begin
  c := tc2.create;
  t(tc2(c));
end.