freepascal.compiler/tests/test/uabstrcl.pp

unit uabstrcl;    

{$m+}
{$mode delphi}

interface

type
  tc = class
    constructor create; virtual; abstract;
  end;

implementation

end.