blob: 50b62f166de5395685c80737dc96b9f75eebd054 [file] [log] [blame]
package Generic_Inst9_Pkg1 is
type T is (None, Smaller, Equal, Larger);
type R is record
Val : Integer;
end record;
function Compare (Left, Right : R) return T;
end;