with TEXT_IO; use TEXT_IO;

-- Test of blind propagation of an exception via "raise"
procedure MAIN is
  ERROR:exception;
  procedure TWO is
  begin 
    PUT_LINE ("TWO executing..");
    raise ERROR;
  exception
    when ERROR =>
      PUT_LINE ("ERROR exception handled inside TWO.");
      raise;
  end;
  procedure ONE is
  begin
    PUT_LINE("ONE executing...");
    TWO;
  exception
    when ERROR =>
      PUT_LINE ("ERROR exception handled inside ONE.");
      raise;
  end ONE;
begin
  PUT_LINE ("MAIN executing...");
  ONE;
exception
  when ERROR =>
  PUT_LINE ("ERROR exception handled inside MAIN.");
end MAIN;