Ada 函数指针

with Ada.Text_IO; use Ada.Text_IO;

procedure Main is

   type func_ptr is access procedure ( args : in String );

   
   procedure callee( msg : in String ) is
   begin
      Ada.Text_IO.Put_Line( msg );      
   end ;

   
   procedure caller( ptr : func_ptr ) is
   begin
      ptr( "In caller: send msg to callee" );
   end ;

   
begin
   caller( callee'Access );
end Main;