blob: 49343cd90e00ee88327506a1ab1247a3ad8541aa [file] [log] [blame]
-- { dg-options "-gnat95 -gnatws" }
package body overload2_p is
function "=" (this, that: t) return boolean is begin return True; end;
this, that : t;
end;