freepascal.compiler/tests/tbf/tb0101.pp

{ %FAIL }

{$mode delphi}

type
  tmcl=class
    l : integer;
  end;

var
  cmcl : class of tmcl;
begin
end.