blob: 73c1e3e2cf3d6ef7abc53a82a3ce639f092c57ca [file] [log] [blame]
package body Aliasing3_Pkg is
procedure Test (A : Arr) is
begin
if A(1) /= 5 then
raise Program_Error;
end if;
end;
end Aliasing3_Pkg;