fpc/tests/webtfs/tw39599c.pp

{ %fail }
program project1;
{$mode objfpc}
type
  TMyClass = class(TObject)
  var
    procedure A; virtual; abstract; // should not be allowed
  end;
begin
end.