blob: 2b9b3e8bdf0ccc86ee0f99e496b65c8830eda416 [file] [log] [blame]
package Opt20_Pkg is
procedure Write_Str (S : String);
type Fail_Proc is access procedure (S : String);
procedure My_Fail (S : String);
Fail : Fail_Proc := My_Fail'Access;
function Get_Name_String (Id : Integer) return String;
end Opt20_Pkg;