1--  { dg-do compile }
2
3package body Incomplete6 is
4
5   function "=" (Left, Right : Vint) return Boolean is
6   begin
7      return Left.Value = Right.Value;
8   end;
9
10   function "=" (Left, Right : Vfloat) return Boolean is
11   begin
12      return Left.Value = Right.Value;
13   end;
14
15end;
16