fpcsrc/tests/webtbs/tw21551.pp


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

{ %opt=-O2 }
{$mode delphi}

type
  tc1 = class
  end;

  tc2 = class
  end;

var
  c: tobject;
begin
  c:=tc2.create;
  if (c is tc1) or
     (c is tc2) then
    halt(0);
  halt(1);
end.