text_io.adb

来自「This contains the following topics and m」· ADB 代码 · 共 14 行

--package body
 with text_io;
 package body main_pack is
      procedure print is
      i : integer;
      begin
         Text_IO.Put_Line ("this is procedure print");
      end print;

   end main_pack;