{ %fail }

{$mode objfpc}

type
  tcl=class
    procedure m1;popstack;
  end;

procedure tcl.m1;
begin
end;

begin
end.