blob: ce129601d85ec81fce05f8ef373a95476b50b98f [file] [log] [blame]
package body Aggr14_Pkg is
function F return A is
begin
if X /= (1, 2, 3) then
raise Program_Error;
end if;
return (1, 1, 1);
end;
procedure Proc is
begin
X := F;
end;
end Aggr14_Pkg;