gcc/testsuite/gnat.dg/incomplete6.adb

   1 --  { dg-do compile }
   2
   3 package 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
  15 end;