blob: 229075b92bff3ffe70bf51cdfc57a7508f195c61 [file] [log] [blame]
package body Inline3_Pkg is
procedure Test (I : Integer) is
function F (J : Integer) return Integer is
begin
return I - J;
end;
begin
if I /= F (I) then
raise Program_Error;
end if;
end;
end Inline3_Pkg;