program Project1;

{$mode objfpc}{$H+}

procedure test;
begin
  writeln('In test');
  Dump_Stack(Output, get_frame);

end;

begin
  test;
end.

