freepascal.compiler/bugs/bug0003.pp

unit bug0002;

  interface

  implementation


    procedure dump_stack(bp : longint);

      function get_next_frame(bp : longint) : longint;

        begin
        end;

      begin
      end;

end.