blob: 848bda4b6448f30e9dbd3f0da8ea1dfba2b427d7 [file] [log] [blame]
package body itype is
function G return not null access constant T is
X : aliased T;
begin
return X'Unchecked_Access;
end G;
end itype;