freepascal.compiler/bugs/bug0239.pp

   uses sysutils;
   type
     ttest=class
     end;
     ttestclass=class of ttest;
   var
     i:ttest;
     tt:tclass;
   begin
     tt:=ttest;
     write(i is tt);
   end.