libadalang_22.0.0_5f365aa4/src-mains/put_title.adb

1
2
3
4
5
6
7
8
with Ada.Text_IO;

procedure Put_Title (C : Character; S : String) is
begin
   Ada.Text_IO.Put_Line (S);
   Ada.Text_IO.Put_Line ((1 .. S'Length => C));
   Ada.Text_IO.New_Line;
end Put_Title;