blob: b1eb5c07bf6bb4b84caefa999ebc9eeebc96a00f [file] [log] [blame]
package body Inline9_Pkg is
procedure Test (I : Integer) is
function F (J : Integer) return Integer is
begin
return I - J;
end;
type FPT is access function (I : Integer) return Integer;
P : FPT := F'Access;
begin
if I /= P (I) then
raise Program_Error;
end if;
end;
end Inline9_Pkg;