blob: b2bf64297e185376a6d89e9420c8e71373f4ddcd [file] [log] [blame]
-- { dg-do compile }
package body Incomplete6 is
function "=" (Left, Right : Vint) return Boolean is
begin
return Left.Value = Right.Value;
end;
function "=" (Left, Right : Vfloat) return Boolean is
begin
return Left.Value = Right.Value;
end;
end;